(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    418041,       9925]
NotebookOptionsPosition[    413593,       9767]
NotebookOutlinePosition[    413934,       9782]
CellTagsIndexPosition[    413891,       9779]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"q", " ", 
    RowBox[{"q", "/", 
     RowBox[{"(", 
      RowBox[{"en", "-", 
       RowBox[{"q", " ", "q"}]}], ")"}]}]}], ",", "q"}], "]"}]], "Input",
 CellChangeTimes->{{3.5011920662585297`*^9, 3.501192089296442*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "q"}], "+", 
  RowBox[{
   SqrtBox["en"], " ", 
   RowBox[{"ArcTanh", "[", 
    FractionBox["q", 
     SqrtBox["en"]], "]"}]}]}]], "Output",
 CellChangeTimes->{3.501192090162838*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", "2"}], ")"}]}], ")"}], "/", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "x"}], "+", "1"}], ")"}], "^", "2"}]}]}], ";", 
  RowBox[{"f2", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", "2"}], ")"}]}], ")"}], "/", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "x"}], "+", "1"}], ")"}], "^", "3"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5012008119344273`*^9, 3.501200842843252*^9}, {
  3.501201259367779*^9, 3.501201271076498*^9}, {3.501201338654361*^9, 
  3.501201339334402*^9}, {3.501201370389678*^9, 3.5012013712524233`*^9}}],

Cell[BoxData[
 FractionBox[
  SqrtBox["x"], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "x"}]}], ")"}], "3"]]], "Output",
 CellChangeTimes->{3.501200846364934*^9, 3.501201272781537*^9, 
  3.501201340318166*^9, 3.501201371994911*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{"f2", ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.50120085111554*^9, 3.501200858834841*^9}, {
   3.501201154485938*^9, 3.501201155524757*^9}, 3.5012012761556177`*^9, {
   3.501201344197216*^9, 3.5012013786600637`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"2", " ", 
    SqrtBox["x"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "x"}]}], ")"}]}], "+", 
   RowBox[{
    SqrtBox["2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "x"}]}], ")"}], "2"], " ", 
    RowBox[{"ArcTan", "[", 
     RowBox[{
      SqrtBox["2"], " ", 
      SqrtBox["x"]}], "]"}]}]}], 
  RowBox[{"16", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "x"}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{
  3.501200859402368*^9, 3.501201277925501*^9, {3.5012013455053473`*^9, 
   3.50120137934993*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{"f", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.501200885954536*^9, 3.501200891417742*^9}}],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Re", "[", "a", "]"}], "\[GreaterEqual]", "2"}], "||", 
    RowBox[{
     RowBox[{"Re", "[", "a", "]"}], "\[LessEqual]", "0"}], "||", 
    RowBox[{"a", "\[NotElement]", "Reals"}]}], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox["2", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "a"}]], "-", 
      FractionBox[
       RowBox[{
        SqrtBox["2"], " ", 
        RowBox[{"ArcTanh", "[", 
         FractionBox[
          SqrtBox["2"], 
          SqrtBox["a"]], "]"}]}], 
       SqrtBox["a"]]}], ")"}]}], ",", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     FractionBox[
      SqrtBox["x"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "-", 
         RowBox[{"2", " ", "x"}]}], ")"}], "2"]], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{"!", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Re", "[", "a", "]"}], "\[GreaterEqual]", "2"}], "||", 
         RowBox[{
          RowBox[{"Re", "[", "a", "]"}], "\[LessEqual]", "0"}], "||", 
         RowBox[{"a", "\[NotElement]", "Reals"}]}], ")"}]}]}]}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.50120089700895*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"%%", ",", 
   RowBox[{"a", "<", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.50120089995435*^9, 3.5012009345163317`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{
    FractionBox["2", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "a"}]], "-", 
    FractionBox[
     RowBox[{
      SqrtBox["2"], " ", 
      RowBox[{"ArcTanh", "[", 
       FractionBox[
        SqrtBox["2"], 
        SqrtBox["a"]], "]"}]}], 
     SqrtBox["a"]]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.5012009132835817`*^9, 3.501200935567025*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ArcTanh", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.501200951960806*^9, 3.501200963568323*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVxXk8FAgbAOBJyEpFtGyijdLh+CqRXO9ERYeEpUVyFKmVCbmlSyg6STkq
UmkShVLZ8o5k3AnjHHLOjLkd0xhHbN8fz+9Z40Ny9JUiEAgxv/z/StNZZ1KH
EFnbwrbWHPiN0j4pe2c/TYiRTSkq6sWLKC86M8b6Hgjx4eEdirHB0pTYDwYO
Z08IMbMoOXNnvhTFMePza7ktQgzSTw85QVpAWRftovhgWoDroo60smIIFIk7
h7TliwCfyOvyk0jz2GAe21R1XYCaJzzy5rTmMFtj+f/cDguwz8Do3vqFP/Hs
3NMbgj8FGDJ1JmWbzCza9u0QXOLwse8hfZS2ZgbVKY12qm/4yLCfcaA7TaMg
27sg/xwf3e+WGETfm8LPF38oEG342KMiKWtjSzDN52oATZGPdkrPtxfbSvCk
tUaDfzcPF3D5vvbFk6goszvp9mkeiqrSDE5li3GY0clZt52H+4nr6I1aYnxP
DdhXRuBhxYMcam7+D/RMTP1tKIWLpJcOwYpfRbj15IaT4R5c/LG2dTrNT4Sy
+z7WLF7PxaI+/06/hSIsXDycsK2Mg4diPg0E207g7A1D2fh+NlqvjrztKRnD
b6Rq35Uv2Gh1o7lk9MUY5h5yryoMYSPlxCr7Ws8x3Lf8clyHLBs3BMzv/NQ0
iul3W6Q26o/gA6vvvuRrQgwI8/P5JGbhH5sM0h2XCJF4eLrCgcLCrPcV+XV3
BDiipnUxyomFbknejqlP+WicFTRfH8nEvCu5DitYXJQ/J+PpZc1E0cWy8mcx
XOz1SC8XKTBRnxG0cJUKF+NWV5zTyGZgqJO741FbDrY+VpwNpA5jzqmEi2Zf
RvAM+ZVESXkI3UzkCZazDNy8NPCyVf8gphWV6vYXMHAsWG9pSMEgXu6eN/Px
YmCwOVmbZjOI+y/9G8GuHsbQpscH02IGML/H9cOB7CGc4OjuNWroQ4Vv0X2h
QQMoe1mSvSe4CzXvj960E3RjwoHQ0jyFLswxM7g6EdqNcr+P18vldaKJ8i3y
3rkulCdzxXX0DjQ5R7k0odiFy5q+H7Df3Y6sOC8bikUHqqlXSQ6rtaJJ15fN
L4ta0cVPO6clphZvla/w022rxWtBIYl33tbg7WK5xAmZWvwUU0lyFFRjC3u8
13x7Da5NOWbZ4knF/nrZq8RMKo5jLr3ZqhJnI22+J/tXoqahrd5jpTL0mhVf
69xQhqP304+PpQfjn5/lqVO/jpFKrdpj4gpROpXKtr82yDhWrWJ8HkR2UUfN
f+1k2PkxfmcqRG/V4htapUKQ3z/sL6nPQLEs7caV+8+AQHg7f6z8HWjxxZrs
pndQ3dB1zdCpBnwSN59ue1QD/hHd1e66tdCb+OSFz4VakFtLl45bWAevQzSI
Sd51sC+6J5ZWUg89pEUC6roGaNjYFxyq0gQOVRvt0kubwN86uIDOaQHdgbys
2vOtYJI+Xi90aQVOXLgkXNwKcsJgzsLKVnBN6+Xln6YBOSNkvV4mDcTqdKu3
Hm3AGTubE7O/HU4yzcqrd3VAQHb4XY2XXVD2fIetpiEdzMWTJVvUuiE5l7TU
+Q0dFA5EtOyO64Yrt9zGvY17oGAyYlngETp01UzeVLXoBcHBqKvlCr1Q9Fpx
5WvnPngfW17+yrgfkk8N4YbeAcgmzzV+COiH+JZ/z2/RGYREmmVv5eN+8DxO
GGeSBuHvTTjTsXQAuqXVNwbKDMFUG5oQWAMgs7a7MG3HMJjqVxQfujcERTbx
1vENTDCitaeV1w6B0ifBQIEGCzZH86L0ZofAfHefUQeJBTq1qtZy3sNw9L3S
vJPqCCj7BrbiJgasyct3UTnLhqUKce/0PRigHY4mvl/ZIF+Snpl5kwGNlXK3
l23iAGFB1bFwEQMUvF69fs7gAC9LXWRQzoQcfoD/UxIPWNZbOrNGmVBnIWMS
1s6DQc6ej/LaLJDtfu6xEfjQZRIcx0xgQc/O1ZTbvwuASqtReegwAnpMey2b
fiFURH+XLI4bgQueya7n9Ubho5aoJ7J0BKyuMVYST41C8ZnVT53V2cBf9dcy
K84oPFIIM1rCYIO5pf9F3twYZJQk/RGtygHOXbVShb3jkOaW83NkLwfkJn8s
Crw7DsnPG6q+FHKg2sU3IMtoAhLsB8lbBzjw8hg1ufbqBFwST17PVubCX973
vaf6JyBil7ZLTAQXkrSu655IF0EI18SU84IL0tMf2i1mRBB456Dm371ciNf5
2b3f+wf49kcyDa14MDHYbEo1E4NXws26nLM8CKf2KZkVieGIwdPCZXk8eKPg
akfQnwTHmG9h3MV8yDd8UvjWVAJ22kw3V0s+0FIO57/8KgHbuhnL6jN8sPBO
paw8PQXWQUraRrl8MHBu8ixUnQZLtfWLctv48OhjXWr8t2nYgeZcRTkBbNCT
rDiaMQPb/BybYk0F8E/yfY3GiFnYvMS/hBcgAI41WhSf+Qm6b87dc3skgGZZ
cu5A4hzouKdE1zQLwOt4e/yR+nnQkiJ7GksLYfsaZWzNJRA1yOXWT4yF4BzB
XDKUtICodoi2fvlJIZiJBxJ2lUoRlSfZiy9kCqFZszCV7ipNXPpwXshvFIK8
1o3v4TqLiLZpUc7tP4VAVqeeDutVIv4HjcUwZw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-10, 10}, {-3.1624912206958586`, 4.46627208253532}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.501200964189824*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ArcTanh", "[", "1000.", "]"}]], "Input",
 CellChangeTimes->{{3.5012009837197447`*^9, 3.501200997951263*^9}}],

Cell[BoxData[
 RowBox[{"0.001000000333333533`", "\[InvisibleSpace]", "-", 
  RowBox[{"1.5707963267948966`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{{3.501200992529736*^9, 3.501200998916258*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Tanh", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.501201010973796*^9, 3.501201026634461*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt23c8ld8fAHB7Z+95UVmlSFTonChSlGQ0UFllRFEySpNUojIyCkmSUaiE
ynOSTciK7Ox1r73H7zzf1++v+3q/7r3P+JzP+XzO83qdR9bOw8yRgY6OToKR
jo78vDFoMrW+Lo9EPCpW19dpRMSVs4dvxcmjm+z5K6TT6b2S6bTk0VrGpmXS
J3bYjHJVyqHshGcLpJkdDdXFbOQQ09SrGdLl9IO3tJXl0CYjuSnSIfFBtTbz
siifWZhGmurWPEftkEUOP46NkzbV3ix9q1gWVQDbUdI57N4H+NJlUdFTzWHS
Ai0lbklPZZH2/qYB0n5XEw9/9JFFY1v0+kj/4/dXLj4jixpTXXtIH8qyYG8y
kEXK9Yc6/zueyfah/q2yKIi75S9p8VGOsjlBWWS7wvGH9J3g/jesKxSUafu3
nrTmHzOhJzQKmoiKqSM9sgndE+2loOssOjWkzX7G2itVUpB8wcYK0jEsP01f
f6Og3hHlUtLdRqO6Uh8oSKGc9Sfpi3XaonwRFOR7Wecb6U8CDsyPgigo3i4s
j/SSZcgUky8F0Rt++EQ6uKO9esGGgvZ9OJRBesv6pZ87rSgoWHpDGulaCnOB
pykFFe9Ab0kLO2x9O6aHv0+dSyL9euTG7W4FCjp8LzqatAEXv4+ULAV1rjVE
/nc/W1PcT4lT0Ic7K89Ib79cc7qRi4LqYvkfk/an6bo96ZVB1nP6t0h/a9ju
MNksgyrbBW6QXvsib21WKYPkHWt9/4vfLXZjwWwZ9Osoqxfph3xNKtEBMkj3
lqsD6erZMvnFyzIoN+DBWdLcfwskTjnKoCvvQ61JP0tK5JQ0lkFV8sbmpGN3
uI0miMmgnXy39Uh/feN43lRABh32UoCk20XO9NJtkEGnzpTqkpZeOdZ2jk4G
mXuP7yKdVKxVJT8ojSpmO1RJv7NgTH/7SRoxDKqJka4sW9l84r00KpazEP4v
HrvnkthSpZHUQQ+B/+ItPRzrHCeN6tvubyCdNVDzUOWONHo3ZEBPOu9arMuH
o9LIxqlnYA1bzuHym5aD0uhzulgv6cemB7vp9aTR1/H9XaTtlOYszDWkEesn
rz+kOduO7VsUlUbjOlvLSNvuZRfV/yeFGH/2vyZdrtxt5tYmhTZ7aSWQVhf5
8jiyUQrtYPGNJc064cA4VCqFLs9VPiGd9QpRQ9Kl0PfC19dJMzL7lDRfkUIM
ZjOmpN0nj9DRuUshmr/iYdItHZu0lc5Lod7sgwdIZ+Q2ZPmflEIaqsa7SVte
2PaCslcKOaZZUUinVg14urBKIZVHYGQVmz/ve2Y4nRR6vpm/l/SN5Iihb4uS
aJaruo202Q09W54xSaTiOFNNelk13uhTnSQSydzwnvSRZxaUtRhJdIzG50ra
T53HyDBcEu2+c8KOdEp9+eUnIZJoIOb2SdJr/Do/5W5Koh9lvoakM8PlnAwd
JJFa35wsaa5IWvoTVUnEXFpSt4K9a+e7xlYFSWQ3yVBK2qHJblVOVhJFEBJf
SX8Taj7yWUASWVl1JpN2jfo22boggbRfxHiTrnz+QEv+pwT6In6Fn/Sclv5Z
t28SSHaTKjNpuZaV4M+fJZC0xdf5ZfL6RS/9NUyVQPdLjNtJK8VY3nB7LIHe
Nu55TTo4Vv7nZysJJED5pED6056O0TVTCeTUby5CuvtvlODBQxIow6qQhfQu
CQ6nvzoSqMJ8qG8Jeyhugm1dVgIdfXU3nrThy+9HDo6Jo4grm1lITzxuX2Ea
EEduVmbTi+T8CVhO+9Elju4M6nWTHjuzm1W7QRx5yXrkk34m95nYWoC90HmB
dOfbjO0CweJIhuL2dYG83uiqztrb4shiJTCZtNqDkZAQf3GUmWP1mPQ9F8Vh
Zg9x9ElKxpa08tbkVwsW4ojXduPKPLZ3Thx/p7w4mnVQVyJNeV2AYqXE0ca5
ExtIV4S3uluJiKMX5QqTc9iSV0Wq6jjE0Zb2/C+ki7TC7/6cFEOGqU8gae7v
D2dSCTEU7sQEZ8n5l/kuyTFfDD3/vEma9Ln4clO5j2Koy6R9eYaM702WzLgU
MaQhxJRL+pTeHcfQx2Jou5roJtIpZb7NXqfFEFOf0PgUWb/VvfXfmYuhPXqO
iHTIS8+sThMx5NchEU7a08v1oREUQ55xuZqkdWVs9spsEkOtp897T2I3esOU
Sqooap8obaJhl/XoCNANiaJLroHxpAuMd9/a2SOKNjLfdyKdKKd+KrFBFFV4
G81Qyfyrkef2zhNF3WF3WEgzbGb1lr0jivIizjGOYc8+Yey19BdFAmk8xCiZ
D8vrR0OuiKIczUZf0jW/F5TmnUQRo3rE2Ah5PzdGOqoPi6KJ/MjSYbK+N/06
4CMkioZPpBkNYsvDypxMblFEsVSbHSD7R3qpTC+rKGKLeJ5AeuUWsWiyJIJK
TkxN9JP3syU7U75LBNFVXg7sI+vVvQih2lQRxPlh4nIPeX4wx+qTJIKSwv14
SYNlqyXKCxG0I+ZXZjc5/p4SXZ5hIijxOtHXRfbrM0mpwt4iqFHKXr8T20k7
S9tWXwSFtDGgv9jNc3yqrLoiKK9dzYi0YY4XJUtTBAX29Ne1YisqaTEzKIug
NMbKthayfgsX1rzhFUHFH5c6m8l6N1V1brxDGF1YfRBVT+Z35lbzqD/C6Nj+
LGbSR53DDMBvYUQfyOb1m4xPt5nK02Jh9Pav1sE67KlfrTMa6cLoh/BY2y8y
n98N3r/uI4w2meu+LscecDDy2+QpjFyiU6bKsK0o6W41rsJIPK4dkN713P0Y
5Yww2v7xWUMJ2d/vzYoXHxBGh6RsuoqwA84yvucUEEZa1Orb38j6XWsY2sgl
jIK+l73/SsZnb4j7SxZhFFql2lpA9m8poW3bloTQ/FHZzfn/9c/NWWY9QuiV
RFbCZ+z444dyYj4IIfuKTvb32HVFoc/s3gmha4dfsmeS+aTe4KnyWgj1Juxh
ySDjzWu943uUEJIIGJl9h6366+Kn7htCKCGA+f0bbMLgaa6CsRDiPTN17QUZ
j89NURMHhNBegyIYh71xk/i1fCCEruqXMMeS9YLxtdbhHULoTKPGvefYpuhT
nru4ELJxdDj2jKxvu1sKPg8JIlpyk+x9sn+8k4wL+CeI3GIm3gZi7xc952/Y
LogaRN2V7pH9Zm5Yu7VWEO1uspS+jX3p4/K3lVxBVMkHa/yw6bbKEPqBgigG
tO+6iH1deJ9tYIAgUn6VbeCKPb9ut1p6TRCdNBozccam1qdoH3IRRHF+Wgcd
sdt8VPNMjwqiS93xw9bYucW62TZigkj339XKQ2S/fX/GNIFfEL22vmR/kOw3
z2/TujkFUXSo/swB7GSXkq0OawJoNzfzKiTrKa9JmkuvALp2tvmtJvZFa+vX
1zIFUPFP/4MUcr4eCNDLTxFAyZPqx6TIfrQtsWcpQQD1G7UeFSfrE0OfTMAz
AdTs4KIqiH0w1fXFvWsCyIaxxI2VjPeMX+TTfQLodMv6r9E1XD86Xmg07BFA
PLzxG4ewJcoKGwQ1BBC3RK17HzZ/LAN/9GYBpO4JO9qx18HD0HhOASTfmyD1
C/vvo5j76U386M3DM0zp2A0llIyztfxo+AjHrxTs6vW3dUIV/Mj7n3VwEnah
V67YrW/8qJHFtDkGO+l0Q7r5a350PPZ95X1sF5UNdauX+NHFgdvjZ7HtHSNm
clz4UefPzKrT2NYJEmIXHPDx7ONiLLGPCCjb1VvxowPvxxmNsdWXDWZS9vKj
rU0pXJrYy5W3RE25+NFg0sp3FuwZJjZdZhZ+pHi1IIAOm7o37FzBOh8S68lR
WVrF+ZXzMm3jNB9iCjphNI5dHFugs9jKh+J2uIfUY4e4zJxNesuHugfr5qKx
A5P9A61e8aGETjnrp9gBnQxpXHHYexzePcC+ZMY37R3Kh4RS7y75YpvvUQ08
fJUPzWW9cT+JLclx4d2MHh+qs8q3FMC2LawOkdPhQ5xb+ozZsV95ql0y3cmH
LK/HUdZXaMTmtiXNDAU+5LSryXYEe1vG42J7Lj7k2imnRGDrHfnYVd/Ei5yf
CAeew77HIPqTrpYXJckziVlgl+VeT1Et50U3mk3vHMQ2ljG4+LCAF3GVfqtX
xbacaFnal8CLNHvtTy0u0wjnZ2tC2Rd4EUwz9gvEzjCwX+w8x4teflSU8Mam
LpW1c53mRU6qBvedsD3tn76+YMKLPB54FBpgX9fYqEZR50VFU6IRTNjSmeHR
0vM8iFnFSO3qEn6+ELI54zfMg6pbR1TssBUDNm9ubuNB0dGH+o9gqx3N//gY
8SB766InCtj7JztrVh7wIOfK09lNi7jf7VRmbpPkQRH3xA9sxPZkzn/rzcOD
kv9UK2/A9msyPMTPwIOkFj8VzS7g54mrjmFGg9zoqgsXcyl22udEsbxsbgQi
bHLtsId3iqhGGnCjyPKahkfzeD3EnFK3fTc3esB5+pQH9kKThle1CjcSz+G8
bYbN5m2Wx8jHjUzvVr8TwVbMfazn2bYBPR29vv/lHI04r8lkdfTSBvRR1Pdi
xCzuJyzhiyN2G9BtlkcWl7G9m2VfBFlsQJvP3CozwQ7yBj3f92xAT2Tb9Zix
U3L9XLcwb0BOHxJd3GdoRL/m5E32WC6UlprAojiN12Mst+TehHCh3VZTpStT
OL+buUvgTS5UJ/ljtg6b6doWDh8HLnTbROn5NeyNX85HDKhyoYxdwjnfJ/H8
0upM/fmTE1kGV/qqTOB6nqplafCFEzU2aFUt0vB8FHvKWJHGieyNu2+VYV9a
1retecqJ1NUB3zns68Q7gdYznCjqpmtYCBU/7xteDaAuc6DgrXmaP8doxPO8
GpXLNA5kpNHZGoQdq6TYOv2PA1lT/hBG2ImcbTsWKzjQSP7KoV+juD7WwmHG
aA7kwvtSomqERpRacZmLaXAg+6kI34QhvN4rd6R/ocCBziiYbbTErt5NvJeW
4ED0vqeGObHrJTzZNzJwIION3F+uDNKIrq4/hap17Oie21le7QE8fudfK+13
Y0ce0Uki0b24PrSsNJeewd8/W2MA2GtGlveMjrMj/tSAP33/cPy2sHcd2cOO
upyMVLdi8024R5xkw78vOaiW1Y3Xqz571t2T2VDuROKp6x00AnUcUe6NYkM9
Bt8mWbAt9e0trB6wIUunI0th7fj5ljskHbizoZXx/EMv22hEa3KHFe8u/H+2
ZdPkVtz/ft/Kyq5iRYG+QQu2TXi+aEW2bSpkRYdM7rDWNOL16It3LLFZrKjn
IZ2KNnb3+XrrO5GsSP5ocCRPA43QWpNnP36GFeV5ie5NrMPrC+WyczNTLMiA
VeT7qSo8Xk/aQi70s6C5ucXWt5W4vs/RvrT/YUH2uiwxUxU0Yu8PUe6SbyxI
DaR23CqnEZFWLgWRQSzI5nBU3M0SPP/ubRDQEmdBp0s67NYKcf0flt2bzsWC
Xn6uSpPFvnRU01lmnRklm5xh0/tOI+LEzxCsfczo3YJ2h+9X3P+zslxbMpmR
QDprY/EXXN86jhf77mNGdicu5BV+wPW7T32pUYMZlXnlf0Xvcf0d4du+XZEZ
yV8+lEBk4vuZr40b4GZGDlmS3R/Tcfz5jb2OtzOhAtt726++pRE5Bvvltl5j
QrHdewaOxdMIfRP5E8EuTKjNp0JM6iVeXx9nCO21YUKPX8ne7YvDz2Nn0WLM
fiY0EcJQfj6GRmj76/xm4WdCLFze5Xsj8Pk/aNzqzmBEcoFXYuQf0AiLXIFc
7URGdKNu3SLjPr6eb1OjUeGMSP/3G7/tQbgeVGZZmfgxou2GTj+V79IIk74t
2woMGVFD0amv/dfxelR0U2f4Pwb0ffTnwnkPXB9kmARpTQzo9P196okXcX5u
6jU6VMGA5L/vaK93pRHiO159pstiQK5OIroKF3B/MJF6fPEGA9JTVTV6eJZG
DN4W0jEUZUC2OYpPlUxpBMeND7RwDgbE6GD397cJXo/5GL3uXqFHvj/odD0P
43rjfoPDr4ce0T+d7Y81oBEsp/tbMtLo0a3rfq3BOrg+aHy+yq9Lj8xvvyou
3IzXD9uOKp3ZRo8ykpZy2+RphJvycHu6LD1y2Da6SKXgfKRI7T/AQo92VNCm
5sVxvDcE8vvU0iG7o8SmJ9w0wm7A/EPHOTqkrN7U/3WaSgT1UO2UzenQo88Z
2qoTVCKtPVj4mgEdAvve5EeMUYmp+m83eFXo0GMG/UjdfirBcNMoOmhonTja
bBK41EQlgNrw72Mb1om53UvRq5/w8RSkdo9OrhHd4GFsQhaVqJE6lniveY2I
D1lU2ZFBJWw58t2/JKwRrYl3DFVfU4nrvcGcUuprxIWwNX2PJ1SiIFLxwJDl
KpGw71PW5HkqwXZ60J5eZ5XYH3/P+IMdlbCkpNwRl10lPigcYrC2wdeXJo+M
R1eIazU81NtmVEIJSWtn31whViuV2Je0qUT0iKCaX+oy0R6mGOvKSSUGPjQc
DX+8TORs13tJz0wlNK4+c8/wXCZsW333310bJ2rXeTI6dZaJxW0bQw9OjhMs
QpwK+r+XiJeaLJaNTePEVUAvxbW0SMx9F2PNjx0nipiQ9qauRYKtp6Rh9Nk4
wVsZcGpv8SKh5PhDm+XROJFhvvL8UugisSwUUDrhN070Oc/zN8ktEjEJYwyR
J8cJs4hxtvjDC8SAq8x8K984kXgyQ+HL9gViL3PkTQe2cYIq7WpQJ7RA5Jgp
0NWvjREP3w3dZeieJ9bL4tLNR8eIH4W9a05X5gk5T4kWWtEYsX24dWbbyzni
x9LCkobbGHFlYquSyL05orqU7vfjc2NE3vxtmzWXOaJupqa13HKM2MeiXFq9
a47IvNhk3wfHCDN5v+fOjbOExJ5w+3cCY8RVG/E9rzlnCZbQMEnlj6NEgYO7
+8OpGUKj2+XZ3ZRRYs21KOly6wxxW3U6tCBmlAjyc+GEb2cIZqtvfcTNUSL6
eUF7u94MoRaq7CFzCP//96mbwn7TxKqqjd/YnxFireX9x9Wz00Tu0sThxfIR
Qq+bYajPcJpQO7I9tTN/hKiippl+FJomxAtOFajFjRDtnMuyptlTRPe138cm
To8Q6wfiih8MTRJHfhm63m8aJvYXtLGvWk4QAuYpkl0pQ8T7tDe7y7QniGtM
ppeSngwRonEezk8pE0TVqv0FFb8honme5dlhXLcF+GILQoyHiE3+lrwvl6jE
5p1XwB3qIFF0e5YLGo4T6d3Zuwc2DxJRdg/cGnnHib8t9Rv/cA0SzvpS1Rf+
jhG3AnyG708NELzMBx49vThGREChHIXvA8SZ4Aj23vBRQo1Z87LV0QFiJXQH
S1D3MCH8SVFT83w/UedR5iieNkzQp82X0hn1E69NT5e89xomeDMNcoKU+4lD
/Hfv/WEZJo6ozuf9HOsjYiLrGZS2DhFxzq79Kxf7CM0Xl9erfAcI/9dfLxvY
9xKX3n1Y4BPoJXjf8ljHiPYQ27nd7+p1/yPivntVqMx0E5OeW7i9Mv8RP5f2
5t+q7SY8dd7JNxr+I7yyx154BnYTV2uTjkRd7yF4kPjaTHsXMT2iYrSzuos4
eG/K4oFLB8FydyHRwLOViPI/OXJ+Wwth6ST/qv56BaFXAlepChVEWXXrwx3H
y0F2Ciw3YS8HF3z+lp1WqQB1x5J7w1vLAdvGNqZ7jJWgij4+7ti7CnDIvz2g
8WMVWJQzCpc3rALVSl2eVwVrQblxv2yOfw24oO+Z2TZSD3Jz1tgj7OqBW+K1
SKmMVsBQfsNt9GwL0Jmb/6gm+hfwLpnZCH1vAVzGPvUH7v0F+r1+h8pEW0Hm
vA+Pu3UbOJHtmVlY0wqoR/weFHJ1gOK/3Zc6NdpAXkBh4QfNbnB+zw6qwHAH
2LP1R47p816w7aDAxoPePWBnY3NUYUUvOP5Z4mh4TA/Y7j/mt2WlF9SH/bj1
6lsP2Fwhos92rg9k2EwUsjD8AwKO7g2Ecj/QYDz3ZvrBPzD2QmJGtXAA3I+S
XLUM7QWD+motLyYGgMYV6+m6zF7wb8TgG4f8IJhL2SrH/asXtO7yvDdwfxAw
1zrerefoA6WN5YLxx4YAc3mMVtDdPpDA5b1zQ/8wOODiEpXr3A9iPz4S8xcZ
Af0On+54BvaDqFOvVoeMRsBg1ZHe6cR+EJJaXVL8fgQ8W3pVYfinH/jsl7e8
7jMKsguaJnfvGwBm1+u8RznHgbszo4QfxyBg8BZqdxCbAL0/X9jsvDIETp1N
q8/TmAC5BcWZjQ+HQM4hUMFlOgE0OCpZdr8aAnYyzrmfgiaACV2Pk9mvIVBU
/u0J08wE6J7LZGmQGwZ3JRwOJNdMglqBl1edfg6DduZF7YXhSVD2OiMyqHkY
aEw8VjdmngLDIeW6nsPDoK/4i8yM9hQoeFNck8k9Ava7cy7pv5sC55O5w39Y
jgCmHznve+9OAzqXv0F5HSPAOt3wjVbCNCgxK+ovGh8BnyLb4x4VTAO7w44u
CasjwMGF5cGOyWnA0ZocVCc5CkoETtnftZ0BuvtWnaRPjoIgJ3pR+d2zIDHl
6d2iilHQaRrFfc18FihnNN6R+TMKNLVVmKs8ZoGPUDezRd8oGOCxmPJMmQVV
l1plDq+NAoP81OoigTlgTs3Sc98+Bli5TG/bUedA6H6eG72Px8AJhVNIk30e
DN7jVCuKHgNpeg7rHBvngaElw51br8fAEV+fGx9PzoPakmvGL/PGQNRAoi9T
yTxY9fkQf7ZnDGz+MXk5JW4BUG8cV7LYOg582pez/HIXQBedGIe55jionGee
OPJ7AZR9z3ioBfA4qoq7z7MsAq1axeeZpuMgN07P5aDnIkgbkKTZeI6DA97h
diMHl8CUgYYqd/Y4iHr68lWh/RLYKiUy5ZM3DoYy3nY/C1gCZ5NeE9XEOAjp
/Wqr/WkJxHrBG9trxkGjad+pEJllcMxBI5g2PA4cVHYeV51bBp/KAyl3pKgg
1wA8Y+BbAZ8PLVFj5amAzc7od7PKCqC3QTGJSlSQEW1z9Oa5FTD+gtHRaycV
zDAHHa6rXgHnbEdadIyp4G53s77n61XwVLMg+bE3FXTmH77o820VjF72aNLy
p4I94SgqoGkVTN96qdF4kwomDqQNP2RdA7+PBov1BVOBbfqNsNeuayC76W6K
Qyz+vffGtsYd68D9k1YX21cqiDoaw9RmvA50q6LPDRZSwaQit2qP4zpgDLht
XlBEBalt87fGn6+DLG1h3r2VVCC8r2ozy8o62He69AJqoYJF5t35EnZ0UHV6
uqdqmgpSPKd/xbvTQbdQJh26eSow78r8J+tPB+8mvZlUXqKCrDw5LsUIOvgj
0L/Lno4GnFy5zmiU0sEPN3WLnbhooLGui8lEmR7+5KHPL5OjgTu6sWJ1mvTw
xYUIU/dNNLA9zVz1uD49VIi2+8elSAOP7lZYnbSmh9H2A2bqW2lAT/NjmmMo
Pazb1jZG0aKBrLgg04ApekhtvXg20YgGqgSCBnnoGOCACdt2OmMaGHgUGPBq
AwO8VL1py4kjNCB5/V5GsSIDHM67yT1pRgPB1nfYOM8wwGvpjCoVp2ngrFQA
el7FAD9PLxxScKMB/8gbVkqt+P/LX/iE3GkgasMNasEAA7ybuHx1xYMGqlf9
JTvpGWHYhibnPC8a2NXp67NxFyP8/ltWY9CPBngTrm7PTmaEDU/Pq6sF04CK
yNUyvRxGOOPDwVj0gAYMwq7YNhKMkI7uXKLJIxq4ftMrZP4v9m2OQItQGhg6
c3lIl48J1tVVlChF0ACiXEysvMEEpaO65yfjaaAt2k3L+hETrGCKk9RKpIE5
Xrea8WgmqObpwOLziga20Luu8H5igoo1aWfHX9NAdM+FE1YjTFBDmzX9bSoN
eCQ58PZZMkMVC5dex2waCPWNeRFqzwyNDoQJWufQwHvTGsXdl5ihw43dBkc/
0gB1TWtf6ANmqPiUvW7LZxpwO83puesbM4zwXPItyaMBF8GchhBZFug54Jdz
haCBh6MDZ7RUWWD/LoIVIBpIK5IY69nDAl8ub+tn+UEDw5cCmbTMWaDGXWGr
sCIauPDrxM6eIBaYo+MyeLcE50/QetTOMRb4wOPPDH0VDQTZaMh3L7DACyZu
aqnYKRrOHx4ys8L90lucjKtpoP9ffVmXNCsUgJa/Q3/RgANIWXhwjBVOVh88
tVJLA3YLxqc6c1mhlcfvkzcbcf7V3h4I/skKzzhc7WdtooGklFzPHXWssLMq
oSQUu8ec8ih4GB9f60D082acH9nTX9Ul2WCmXbBgVAsN2LrESt2/zQat0p8l
H2qngeVW9prJx2zwcN1KRB52tJFvgHUsG3R+l7xjUwcN/FY80aX2kQ3m65U+
WsLePyj0qr2PDUoynhSK6qIBJYenG9UPskMk8e1P+D8aKG2ga3phzg7bsnB1
wLbTvxTIeo4dpgr8WDPspYEXckcH2n3ZoVNCTMs8NncPV+r9dHZo1jvHdbif
BmZsglU6uDmg1qu/24oGaeDJr/k2QwkOeG/mcRfXEA1s1T0fkqPAAV0m/d9Z
YjtJGozfhxxQtp/h+SB261/GD+qeHHCqp1x+fZgGCq1uqgc3ccDve230WMdo
4HQZ9d9UDwcMPH25Zj/2gqZtuA2VA7qeFnh5G1tNWHdGnZUTcrPzcS5iJzcu
fe7YxQkle/+d7xqngQfHvHfveMEJQzM+rD2i0cCzamW3jHec8FrS8fUi7BeG
XfGbvnDCQWeDg4vYWboHmUTrOWHei1ff7CdooEVJvHaFlQve+at1afskDSgy
FDqUenFBA5uAqbQpGlC/4fkc3OaCoWlOQX+wdRY2V+aFcsHDJmcDGadpwJQa
ti39HRf8fHB/9Unsa3/PLYV1cUEni/CcdezSHOYnJw9vgA8On/NSn6WBuq0F
RfUnNsALBz+GW2L/TXWfPey0ASa/N9L2w6bG/zm19/YGyHbq4WaELfzo3Sb5
LxtgBlUh2mCOBhztTb6OyXFD3+6JrWCeBtw76amO27khUep+xRrb52QupUuX
Gxpv4T3pix1yVCbo9wluqGnbSJ+D/Ul70jQ3lBuyRorMSC/QAJNg5MDNJW7Y
zrBsP4TNTw3g5mflgT2ab4LXsGXLL2gmC/DAZCONC4KLNLD3uk5Q+RYeeOSc
9WmA7dvXu4nvDA80zi9SfIZN/aTumPSTB45IbOPZskQDq6GSjzXqeGBFasq+
vdhcziyfS9t54IMnx7RNsZWk/jKNzvJA9xnG+17YOUWwXkyQF3Y6fH72BXtM
eeiynQEvdCx14NRcxvko0hGYbswLg7dFru/HXmaqj5kx44ViHCIlx7E5ur7+
CDrDC8/9O156CVshPIwv3YcXRmapZadi2y1rZk+n8cKLa1PxvCs04DykUqKT
zQs1pUuGJLEvNVFaA7/wwi8tu7mUsG9+4KAXLeaFfx4O9UDsF/adpjodvDBQ
Q7TJHftPVeDEPR4+GGcpo1OMHbH35QELYT54p4R+ay22Wfan2E1SfPDJj+6F
VuyaqN79pcp8MOf8fXkadum5fTGsBnxQ4tCP3yKrNJA7v7Lv4XU+qL1VaN4O
+4qL4PNTd/lg/MRsjSu2eofKmPJDPlhvPxp8Bft90amoqud88EfF2+RA7JTH
eSNcH/lgcPXGoBTsKPkr4WHDfFD10bJeL7Z51KOhMxN88LV1xYURbH7217rb
5/lgv9AF70nsUOrvwTomfrhib3toHTsof5sOP4Ufrn3u6BBbowHvo6N9EZb8
kKXKYPYQtkYRwx5HG37Y0qn1zRR7SkM8bKcDPwwsfOFhie0ubrS7+TI/rA+s
eHEO26k/5bHIY35o5PZJ5Bq2hb+dZuxPfvhBTr8kHjvqpSDLfAX+vQ1N9jV2
M1HadLyOH3Ln/770FtuSSeXqhg5+ePP5QP8H7BOPpz/emuOHRe+m1RD2qYR7
aueVBGBJLePVTuzYH5r0xdsEoJSkLds/7LbeoTqKpgDUaHJ50o9trWhy6a+e
AGRhUr45hm2TLfTBxFoA1m3halvEPvszZYtGmAD0/ez0jn+dBhL7T6w8iRSA
jeH5z4Wwe1g5q8fjBOBoQPl1UWw7Yw/Xt6kCMGl/mIo0tn2TVpp4kQDczNsp
rYTtNFiuQD8rAAdPGV/RxU5h95+3WRaA5/9ZtQHsQZWtZQX0gvAmf9UePewL
l546XeEWhEuKB3sNsJ0XT74ZVBCEjyeVO45iu3GOytWcEoTK8YLBZ7FHfQuY
OM8JwlNBzt522C5DDwYMzwvC7zJFtg7Y50sU0354CUJLu3KpC+T13nRS+xwi
CM8nyFl5YJ+c7gEvCgXhq4ubS69jt5zLlm0tFoQZ32nWAdiWdbcYhasEoZxY
NfUmtnmmTFnYH0HY3rjEeBfb9LzNkbsTgjDEqm42GNugrcXaRU4I6uSVMUZg
lxil7n2rKAS3HQoyi8Ten3eN0qcqBN12ar2Mwt4XKdxnoy0EbdWTNsdg6xw1
dz1mLgT/Ck1zxGOr/6z13RUkBE3D8uXfYmerJZy+GiIEv3tv00rF3p7orpvz
TAjG+h01fIe99cYG+i0JQnCY/4tNOrai1uFgmTwhmKG11+EDtkx6aRTLiBA8
T4vsziXvJyEvv3JCCMretGj+gv0wPK09dF4IXlZpK8/DnvEPlRNhFobGAg7J
BdiVxpbvFSjC8E3jM81CbG9qf8lBS2H4N1Gxrhg749+fIS4bYRgbwf+8hMyX
5grO3/bC8AL72dOl2MZE5rGTl4XhgufB9jJsuSdXO5xDhGH8b11Uif1LjXn2
YZEwvB3UIFKHzbB5XuRohTAUL2/MI71LfHiPQJ0w7JvIs/qNncTw61ZchzCc
MTIIq8f2aYjgylgQhru3aw40Ym+8unHjL1UROGmjtLsV+5SzsOHTnSIwwtn/
K+kwGzYXCx0ReNRfROcv9tKBsQ8dRiLQ+uX+XW3YdcKftKkOIpB1M49UB7Z/
nv5xnjgRSI3lfNlNjo913cSZVyJwLurBOumRdevQrLciUPF2/dke8nyG3hXH
PonAx9qNMv+w9zSngohfItDm2lpYL/bC9IYtYnSiUMabQWcAO+t5bIUziyjU
n24PIX1BW+F8AZcoFM7LbyfdcgcmnRYThdk3g3wHsb/weYnGq4tCq68/3g6R
47GthUneURSGSRu0jmCrNjgkebmKQrOSNxKj2APek6D4siiskt9pQ9qikMPf
MUAUqmmOd5DWMNGdfPtcFIruYWsew552SerYUikKDXhXk6jYadzb/G/UicL9
eb6tpO1yvorWNIvCfofDPDTs+sXG4x69ovCNwpwP6Zxg1srsFVHofyFp/wT2
pRS3XM1tYrCNgYOYxO6slYjk1hSDhvrXaaRNFiu9BnTE8PrESGYKW9lYSS3q
kBiMLF6/Trpvsj991lEMVlL51KaxrXTPvPr0QgyerAi/MYNd6sR9K+S1GJzd
nZNMWuPJd1uHNDEo8flwFWneXglJwTwxmNI4JzxL5nNwS5RXgxi8mGWTSnpv
47EQdQ5xyLf099Mcmc+rdK4cfOLwlPnlRtISCllG/0TEobPZi2nSC77crM82
icOooc/b58n7lam6PQnFYd4u6RTSm1z3X8u6Jg7va48ELGBHRExbBAeIQ69c
12jSDIVJGmcDxWHWrahs0p289FM84eKwNGbsH+no3O9uHu/F4eDGgn2L2FwM
Wnaq/eJQ/UP5BOn8a4zHB0bFYdUzeuYlst6O1+rHT+HzLc6JkkYtFzZx00lA
h3pxSNrrQ+zQuLgEVH1p+4j0X+s190xTCbjSECK8jH2/vvKMo5UEPG4+uZm0
xsHnplK2EjBFRkaLdOiO7eqPXSXgFo9WS9L7OOxm3YIk4FOL9nDSqV9K/Ld8
k4DfFt8zrZD5tfWZW1+RBExAC3ykGV7b2ryokIAFqsIypK1D5/dy/ZGA6Udq
dpHmcVRiGJuUgAcs9F1Ie/M/Dk5XkIQ3dfNKSMsHn/S1V5WE2VU3yP1+oG51
k4vETknIf16mjbTycOHhR3qSMOf1Ao10JzHB7WojCXdP8YiuYh+4aB6pHC4J
p+bUyf2G4Mqzr3QeMZJQW/CkC+nkL3JuHxMk4b46R0/SDAyTejoZkhCd0bhD
GkU9njApkYT/DrxPJL0HlR6+PC8JGf0sWkk792/98nlVErY8ZOsmHc0RKbfE
KAV5ClMGSM+b2y/e4ZWC5aFvpkl/Gl5PiVCSgiU/P3KtkfNVYDdD3mkpmG5l
qE3aZlfixZVzUnDv6QpIOsSGtRVekIKHtPYYkB592/Sh4ooUbDMZJvd7glQd
T5u2x1LQNvmOI2l5p/S8NUIK1rr+ekTa7BH/Rv1SKQiSzcn9o+BOlm/Y/Wop
qF/0K4J095KhE2+rFNxiG/WSdHxYn4DclBTcVBT4nrRovpTHgY3SsG2Grob0
mv1bCT4Vacj3i72edB+3Wnm7GjYrczPpLIf9sleANMy2auggbcjr2pB0ShoW
GDeOkfY+n6dF91QaprwPYVsn84Ffr6/quTTkGqnlJK33verJ83hpCOTYeEhz
C3QNq2ZIQx2pE0KkUwqZX9iUScOObX6ypJuEjtN9XZWG1o19WqQLUHtGEJMM
ZNEL3kM60dXppBmnDOwukyP3DwO3H745w6IykD5Cl9xvDJguJjqIasjAEdsN
xqQ1isfLr7rIwG1cqrakxT2uXd13WQaaAFNyPzOgE6eX2+AjA2v2utqRrvYQ
9E8OlIE9jCFOpO0ltLc2JMrA2T3+7qSfeQY/3f5HBnoybiT3UwM7hd9d3b0y
cJ3lBLnfGuxoF1N9OiED2Rau3SU9kmTRv8BEgbFRNx6QDuEavH1SmgKrKjIi
SM84cb7L3kiBzcdNnv8Xvx/b6thVKPDm+Y4Y0lu9faQLtCiwrORXPOmaLvav
4scocJ1jidw/DjT3qP7ztKJAw1ey5P5yEB9hxl5lQ4ESX7TJ/efAwyjOyt+F
An9mH8wizftxy0zbXQp0Tq75Qrr7/FW9kCcUOGxl/JV0tmThE52XFDjbEF9I
2izo6NaXuRRYfb6y+L/4N9QnbPhJgQePxZSRHqdY8gfUUmCTrEEl6eCv1vO2
QxQY1A5qSTezdTvXzlDgx/Kw36TlLe3bAb0sbHz1s4F04YTzD4q4LDxs207u
5wcnH11Kod8hC32Ww9v+i8+ma4/+HZaFY9emyfcBQBi6cemngyxcXGH4R1r5
9D2L5Buy8MpURd9/18clBJKiZeEq691B0kKFbxQTP8rCwdNz5PsI4KGHJn98
jSzcNqw89t/4y5Ytxw3LQoaFzVTSo3eHap7LyMHzKY8m/7v+AfakcAs5mLjl
MPl+BKhPnp80K5CDmoriC/+Nh13/Pn4ZeUhMpC+R3vxGTPxBmDy81feEfP8C
/P/9DPj/9zPA/wA6FuRg
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-10, 10}, {-0.9999999958776894, 0.9999999958776894}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.501201027062799*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "/.", 
    RowBox[{"{", 
     RowBox[{"a", "\[Rule]", 
      RowBox[{"-", "0.01"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.501201064967152*^9, 3.501201084712123*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{2.040816326530612*^-8, 1.4285597668352465`}, {
     0.000011844899828926611`, 7.367663045276874}}], LineBox[CompressedData["
1:eJwVkmk81XkDxbNMlrh2LpcRqaYwDA2RnF8y3ERTlkFCKFnSoEabJoTpCdGk
BmlaLJEhFbJc26Ur13KvJVJC0kXoX0+IGB7Pi/M5L873zTmfo+X7q+Nh4VWr
Vl1d0f/9lqzb2xCtCnTnOORHntIgJ9vNkDZdgRPatsoDWuqE9n3pu2bxSjA6
W4eMRdRJdpJh4oJ6JUTCthjVjzBIh/3GPq+fKoFCM/OoPAbRbVE8vv56JZhN
49NRRgwy2ETlPjKtQuut78wYe9WIbX0Ore0MC5ENUY3Hi+hkYK1W6dJlFsyf
bjzbfI1OTkRlehhmsaBBS9jIPEcnd3A172oLCyztPkGNPZ0sVEdZ7VevxlGj
B2/+mFIhDyo9Ikarq5Fs2LDD3ESFqJTIDQgJ1cLfaS5J8EaJHEhccB5RrsUP
8+/oYq1K5O6hdy0cvVpcTlad312mRPSUKioS3GpxMGRP4I4EJWIVcfCaUnEt
LnGf0zpNlIhJpmtuqkEd6BEG2T+lKhIfr1zPvIE6jPmEqUf6K5BYO0Z6+ngd
DtV+Y3XNWYHkmqR0X5quw8uouf5mKwUySTuzO0SyHh4HDl6M1VQgEbUOZkYm
9Qjb/j7E7KU8SVw7o8hKqkfiPX2DMGd5Uja8s5VnwYbjRIn34/1ypIcZ/SnJ
lo0eg+kcVXs5MltUo2zvyMbOXZluqdvliOlZM59nR9iICfzkx1krR8oVDGbr
/mQjbbS7jT4mSyqs1dY+GmOjuJKz7HJGlrByPx5PTW1Am+MQ/bSbDOmX+j7d
8VYDRCN/pXVDhiyGB9fI3m+Am1qFxc8bZch2CMSTahtAfb7jljNLIzW9r27G
vW/AHql8cK/TSK14U1MEacTAoJ0Ep1+asINuMtwnG3El8X4F/Xcp8ng8ONhr
thFf7F66nA2SItkB5lV+q55iRk4zYPoXKRLn37v/mOJTuAeHem8ylCJMX7mM
CxZPMSo+wcp4u4bw3OPoRYlP8UH3mNm5PWtIPzNESUSfg5KOb9W8jSVJW9O2
w+KmHNR08aT3akuSGhvJUukdHEw+vHnWSU6S3LK+50x34WCH75jLFUqC+JI3
V/XPcbDkFiQi+EeCjJm6yLu1cTC3Tnvw1WYJMrNhu0xhSBO09ebvMo3FieWw
VdOlU014yAg8obhOnMTfZJ4PuNAEUwVXx//KixNlRWdqXXoT/vGLb3j7XzFi
IhTMy2hsQtUG+4iMx2Lk1Ku05IuMZ0iPMbyHrWJkMXla5lDzMxgtqk4/cVhN
hOcLZBnrudBtZ/gEZ4sSRpvVZxhwoVZ9y4mXJkq23Ol7fsiMi8LcvHWWSaLk
8C6xG0UOXDhZxq+ziBAlz9J911tFcCHlyVQrZ4qSZHNV88AmLhibD3/IokSI
emS835PAFlwwo4l9tBYhJssHy5yKWuGdx7BkSwoTe4e6mJ/KW7Fzs3tLvpAw
8buh+bMpuxX7Uyy/ps0JkRTTgVG1nlYsCKB6WSBExn/1UB3+txUafuxDnWwh
kjnkEhnq0Ia51W/uVEUKESG2nVXSZBtUfyjj9MysIq2xW9o5m3ngKI0KSX1Z
hrlMi/CVH3kQSQkJnhAsIy/dx9SD8HCnh+v9omcZF4ou36ZceNAb+k/+y7IV
/sVYOD2ah7ahdonzJ1d43ZsqQb08WBkGJpstLMFqPKZ4tRUfsj7v2mlSS9BM
mZjP/8CHd9FebZu9i6jxOZ//6DMfUYI2g687F+FlrOBeNceHTrm+1hPTRWT2
mJe3CndAIaEwYbfmIugalyIo5Q78ITYc//rDAuTvf/d5CzpQEir929/JC/im
8fBkbXIHfJ/c8Hfv/YqJL4MDzw07Ue+0PW/p3DzKjiSz7Uw6odPqp9gePo+o
Xsvc2m2dqHj7uDDnyDyUn9wMybfpxAbxMJuQffOwivBYjDzQiW97tTZ5rp9H
xnSPqs7FTtCmIzPL2+fA/NTmHD7YCdGFrFsbN84h+30Vl3a5C/8mysfunZoF
TeMeNTLSDfGje7gb2qaRGFjqf1unB8ZJeWOuqp8xSwpGAs73wv+3wyekoz7h
hFFjiXLDC6hudStYbfwRg0WNCR1aL8G3t1tbMDmFhaDuG5vOvELGmRyLC80T
0N0htuRf1Y9fLBQH9om8h+1drSMPVQZg7G6asWb3GE5qeGu/OTCIWAspG9pL
AfQmXdb0OgzhcTgnPvDPd1CQ+Sje+HUIuKykarh3BKK1Nx6sy3yz0iPammP5
FsFbqvokdg/DsqJl7nfDYRTs8r1dMzuMyc9e7zws32BmQk1WcP0tnh8Q2PUe
G0Kpk61IqvUIpC0TTmpiEOeZcbdKBCNwPnr12nTfa2i9tnuRFfcOj4KqjUdS
+2FuGpuqaiSAS8DO5TCHVzjwLW9eqEuASp2g154/vMQMN2k4NHoUgdXca7Hy
fUgT9TrhqLPSyzV8ax79BRQGSu8KN46B2/maLWnci2/ORTubhY3j5BV1qbxd
PViV7/VgWP49Uv4onrM/9xzhGQ+S5NnvcbpBOta6sBvVuhfF5Y5NYOzHCubp
qS7I2YXrxdAm8cF2318c6y706/O7TrMmsUnnlL5GWieK/4bOiNcUtOpdmB3L
HfB8YCKnsTQFXgOt2CK8A1Fxd6L7739Ab89ty9whPgrHNG7Q7CmQK38lcr35
uHgz7uDAHgq+tr83pHvycchxan3RPgqap/1OBnrwoc5iFTu4UlgOSHKRdOXj
UrIHJ9GXQs91zdF9e/gIMEn/JHmaguBj6PY5Cz60YxWZYrkUwjwvFdxW42Np
a6R0bx6FWakh0/N0Pvqm3nbmFlAYswy38FLmI8X1safNQwrX+p4UasjzsbzZ
8Xgci0LCJEvvrgQf/R3Jf4t0Udi5IDUf84mH8vgvfl3PKTTYsWf3TPGQus17
U9aLlXyvxxBjnIfdOd+XWA1QOMtQiSgf4qHyVFtz9DiF/B2dWYs8Hq7r/5i8
b5JCqFj9HK+Fh7DhTGctikLpXSfT7CYevrM/Olg3TeFZjE3oz7U8iAp1Z6d8
oeCmTQ/aUMXDUOm2oINfqZX/h9ovlfHACsoyMPyXQuqMmErvIx7+0lwzs7y8
soduWnNxEQ//A03+cP4=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {0., 7.367663045276874}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.501201085249441*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "n_", "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"y", "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", "2"}], ")"}]}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"y", "+", "1"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"1", "+", "n"}], ")"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "0", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5012086271943893`*^9, 3.501208665417259*^9}, 
   3.501209022815236*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.501208667512911*^9, 3.5012086691052217`*^9}}],

Cell[BoxData["0.018797581881635095`"], "Output",
 CellChangeTimes->{3.501208669678574*^9, 3.50120902602166*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.501208670716607*^9, 3.501208671728016*^9}}],

Cell[BoxData["0.0177666585289559`"], "Output",
 CellChangeTimes->{3.5012086725678988`*^9, 3.501209027487712*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.501208673567748*^9, 3.5012086792323427`*^9}}],

Cell[BoxData["0.016802882633294398`"], "Output",
 CellChangeTimes->{3.501208680160015*^9, 3.501209028890811*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fs", "=", 
  RowBox[{
   RowBox[{"y", "^", 
    RowBox[{"(", 
     RowBox[{"1", "/", "2"}], ")"}]}], "/", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"y", "+", "1"}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"1", "+", "n"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5012087040125837`*^9, 3.5012087070991096`*^9}}],

Cell[BoxData[
 RowBox[{
  SqrtBox["y"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "y"}], ")"}], 
   RowBox[{
    RowBox[{"-", "1"}], "-", "n"}]]}]], "Output",
 CellChangeTimes->{3.501208709034226*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"fs", "/.", 
    RowBox[{"n", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3", ",", "10", ",", "100"}], "}"}]}]}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "0", ",", "0.01"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.501208715287546*^9, 3.501208804091374*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVlGk81YkChi2TkxDCobKFEm12Fc6rW3HQpJuyToxtcOxx7Lt/k4ixy5Il
SdKxc86fSsalLCmTpaJpSh1LVCRdEbf74f09X58vz7vDxf+0Ox8PD4/vj/2f
+seW5iKFZ42sdR8U53yZo4nqt+WzW3toS1oBRXn1v0DJoTMutvU5jbJHYHHd
zA2OqWcKBi0maKH+5VTj557Y62sa7No6TctzsqGa1PsgepdcZYTkJ9rM56TB
rZsC4JZLze60+ExzWNC9u5wRCM0QQb+zrcu06/b8fvfMgiHD5XMonl+lCWwV
7v+TYGJdfa08SJIHayaMzqaaEHALvqbfseDH+NWeimfPwtAYMcM42SqIvuKJ
xdq6KNzQ8ni9cFYIbp89xmsyo1EwM2GTNy8Mp5mBZnm/GBiz/JQCJMWQOW/z
slEwDqpynqKkhQTk2/qeMjPisbhqP23euhVjDXWZS3QCH2zzVeSStuFLn6fl
+XwCU02jTh/PbgejLKyXPUVgzOfMSNa8LPibRM4NJ16A84cbzn6SihjhTqSW
sH4H3bH0JNtCGdu5z+/7jiZBipa126xVDdk6sVmJNZehLuhJf6GmjlhbKQe3
2cswHjL09M5XR4hlkF+HWioYDG5latgeBEwJH/5+LRX3cw+p/qW3Dx9Gx4Ye
/ZGGlq8fM1l2GigTSpi7qJ4Ol1O5GXoj2lA+EmC+8igDc81xO9ZFdPCt3a93
hpuBsO3e9Q+O6+DCXHcWez0DqVwM2jbrIEW84tB7jUxwoqbFIrN10afRdLEn
IxObqwzT20/rI92a2Pvo5yyQvBNp9MeHMebEzb1bn41F65QuR34DLMvWk11d
2dC4rb0arG+AEMq/o1ufZ+OmNeFVVmKAhLimTgZvDq5U7zz2zd8QlAOX5GYt
cxB21nO5WoyGnCOlCVenc1A4tFRPqTLGrI8L5sTyYL87StZ75igGJT4JD+vl
o5cMexN7whyZFAGPrKUiuKRNuicXnULtq0UZ6vFSLLQGmtSOWsHn28Vip+4y
mD65eVDS1gY5XUumzOPlyHlhq6z40B5zD6RUKdeuY+nVZLjA93PYH6gtqPC0
AiKT4oG5bb9iRe29XKVQJaocFMaoDi7YvwoOW/EmOsy9OhgLrnDi1ao9p1IF
w5pLdY633dHzJO+ehdYtGP+RP9xO90CP0zYlK5VqVL6N5e+geCH0bRs/dcdt
JDddY+XcY+C6aXhJhBgLX3mbU0dtfJBio9l5Y4qF7s6rIaSEHzrk5XuE+2ug
wB+Ss7HBH4aB5QLaBbXwdcj8O5IMQMTyhgbyUB0uLVzUeJkTiPlYvum4sjow
6Ew5puv5Hx0QaR/X6xD17NHmc/8KAnPTmPY713pYqcoXRm4JhpdYtZR0ez08
Gy+/S/w7GG48AvSr1AbUhP+mM97GhJOY0/vsoAaQa/ry3skhOL1ubpf9sAFf
7gYLmzNC8Uv89pQJpUb4tz7mbDEJQ9KepenH4Y2oYSrxbJEIx0u+QTVGTyPk
vf+xcJ4Ph+ssaaQn3wQrhVytyfsRGNkpvZ/HpwndYoxR68uRqOzgemxkN4Fh
WBVH9YoC02fATpnSjKe7/vmPsH40/C1WShtONcPXIkHEihoDlvab07olzejf
Lzv/mBuDQc3SC56TzfCyHMrUa4zFmXvZipr7WiA7HFkUQo9DpI3d4EBoC7jO
gkZztXGIodrOh91pQU9K/yshxXj0Fso3jG1gw2Ko2FkhLR4U/tHfpk6wcWB1
VmNgMR79N1eoVmls7O0I4NvploCjVgcd7YbYSHEP2CHdn4C3RiftuJIcXNod
q7CmmYiEjkIhfysOSpM6FVJLE3Hwp6QPobkcbH2Y6MumEIgVZe2hD3Ew4PZE
khAkoLNhLc9+mAOCV+7OKSECdjW/L/mMcPDpcMummc0EdM1NkjOecdDNmqqU
pRJ4MV4n/GKcg/NZP7+JVyGwq6szxvMdB/2O0jYnjhBQrjipErnEQcKK65rM
UQICTMGxlK8c6F+pq3h3jMDGBh2i6L8cXBs0W4z58XPRAROsu984CD8WlVFv
SSBl+C/H9TUOdqm/7qM6EjCqjzkYRyEx3r0vaMKJQJSmuHT6RhIZrhHb6pwJ
LHMPTJUIklgtkvAycyfgNSLj0i5E4qmoiUCUDwH654dN30VJJN3OZNH9CBic
mFMVESdBM3t1Rirgh29BdarsFhK3EsLKa4IIJM+tahhIkvhVocs8kkkgxDHL
z1yKhNQd8QXTUAKHC3uL7agkem0d8yXDCVyxvd7hKU0i7sst49cRBNbNlUZD
ZUj8D3SXNpw=
     "]], LineBox[CompressedData["
1:eJwVlGk41QkDxVFvtixjK7JnJKNSU1S4R2WsKU8SIYVs13aFm+Vmu/+SNdxr
lyx1Ldm3+7dMw2tayIjJ1iYt1jeKIW8Sr/fDec6n83vO+XJUXPzPuPHx8PD4
buj/rmv0dTZ86yeDzoWK/PSlWYqYbms2t6WLEn9jYji11hGqDp1RkS0vKKzv
vD3LZpfhlHQ2p9/iA2VbWK/c/hee0PI1CXJtmaaoZDzdvK/WB9fUFUrCpL5Q
OtuX6wSFaLicIcPutPiHsneyM/FjagD20wX9bFq+UYhysve2WRC2T/A55M+v
Un7MCbzNJYKxrrlWHCjFg+sPLmrFVtExkbOc0maxCa1bFMi8kRDUh81QT7UI
ou94R611DQOcAx7vFmyEcYm70meWdg05Mx9sM+e3gqhZza/xjYBhpZ8qTUoc
12Oz3QIFo7BLwVOs2UISS+Vj0iqp0VhctZ82b5HFKUEdhSBTAnN22WoKN+XA
aWTXTGcRmGoYvvjZZgfcZ/RmNKYIvPI5O8Sal0eds379EeZ1OM9xnP2klBF0
fokyXXEDpk4Fp7gWOzHe80oxYugmpCksDbOW3XDrl6+VqEyEpqCn6cvdmhiv
EBWfmUmE4YC+p3e2JvpZlRwDjSRQqRMlSSG/oFpU1cC9MAntGUd2/a2zB+dK
gphiycloWv6cVnleGx5stYrI3SlwscpI1Rn6FaNCmjo5PamYbYxSWRc5iL/o
xe+Y46kI2eFd+/i3gzgW5dBrvpaKpAn02zUehLTSYNGVfWkgGdPi4exDUNJq
nTuckgbRMv2UP87o4s+HpJzwSRaaeT8kmz47imDHnXysajYWzyU8dNqkh2zj
zc/ZnWxoV/y6GqSrh3JBDoU5zEbpOcKr8I4eVNsn/62+zkbW/Z+NVvz18fk4
YZVsmY4QG89v98Up+H53L5/wZDpyB77W8pcZov/2itisSCbsNRjy3jMnUE5R
s5s+kI3u5pD3kSfNQbvKOFr4JQ8uyZNu8XlWaOPsVh41LMBCS4Bx9bA1PNVm
Y0fbC2HSV3pYys4Wik85DjRKMdJf2u1UfmIP/aX/UD2z7+Lr28nQLT8uwP1u
1+j0k3sQmfwpIKP1EhSXWsML1jkoc1B6JePgApPykOQpiVJ0mHt1UBdc4SLI
uNgqVQb9qrgapwo3HBPG7Wzlchjeyh78w9QDIxRwCsXvo+Rj5KYOfi9ExovF
qAtXIL6hqDL9ARVHYmycjP5bgWXexqRhWx84HToeathbiUedt+nNkn5ICVjN
O1RdBaVN9HSBOn+4dtk2bg6vhq9D2mh4Mw31cogd1KhB3EKs9pv0AJh/3Jtg
easGVNNghWDXK8iSiTvN+FQDxshfoheOByKOdeeG2OlaWO9SzA2XCIL1cjfz
c2ktPOsTx5mjQfDRjZRQW69FVaj7wdetwQhWHaZx7OvQvKar6B1PB3P7jPKJ
qjos/R601Zx6FaIZiZuF+evh3/KMlDAOQZnefjrNsR5Vwao8EpKhSIm0+yWr
vB6K3mMWzvOhqDoTKNPzox7WShkHJtvDUDz1XFvSvAGPxKnD5xLDweR3Gc5h
NYCqXxYl48WA5ZJ7puj7BjxXH/tzq+41rOyYzBDRbISvRYyItUwEcteE4kfo
jejZKz//bCICQUVqD7x/b4TX6YE0nfpItBdJJGfyNkF+MDyPbhoFIccXAjTz
Jkw4CxrMVkfBcjFS1S+pCV0JPW+FlaPBV5p47/tAEywG8p2VkqPxZjzXREeO
i32rn7R7F6NxtrmBPn2eC60OGt/Pl2NwxSVRVjSfiwQ3msq2nhjodBJNA6+5
iNOIVFrbz4Tirdw7ubIkCm52KiUVMLHiaNDEtSch+4Tpy+UnoDb7ppSbQaL3
cp8UIUiAPXthoSOTBMGr0GYlTKD1QMeeniwSX442Cc2IEjDuPRw2lkPiUeVU
ibwMAREhJarAHRJXWJbvo9UI/HPMscSmhESP0zbbk8cITJto3h3nkoj57rq2
/QSB+rFbe+ZIErpZNffGjQi0S0uUfW0mUdRvthix8XNmboF0/jYSoUaM1NrT
BOy/vaRqtJNQ13z3VMZpo9/9x60eT0i8frQn8MPFDb52t4d/F4lU1zC5GmcC
JZ7/2nK1m8RqnqSXmRsBxqSW7I0eEs/FjLcwfDbyQ7Sc4j4SNyvSKk39Nvbd
8xop7ydBMXt7VppG4KlImUDd3yTKY0KKqwI3eGw+w/YBEpeUHpqHBxNI1lA2
eTxIQrrtpwWTqwQykWDYO0Si284pWyqUgDXrN63BYRJRS+WG78II8L+xEno9
QuJ/gCk4nw==
     "]], LineBox[CompressedData["
1:eJwVk3k81AkDh8XbQaictREpR7YkebMV81WkYUpFIrNNCbvGMUZuQwY/70uO
ZQxhrZRyX+P8mUosOWJTb9K1icggR85eJd7eP57P8/fzx7P9sreNq7iYmJjX
d/5vI/OFCY70uIl+BS87dX6CssHobkadsIMyIs6Qjxf8DA16Mzdc+IoSLb/q
9pSlCxgJZzOf0gYpZIK4msYrN+z2Ou7nLByllDrYzCoLPBGmpZofovCJ0tAY
wF+UZMMlTYnfTJulNDI9fu5O9sG+AEmWnXCR8o51a2+YpR82D4vTs6eXKLJ7
T8z4Ef5Y0V3O9VUQw9yLitTzZQEYzvycdI8mgQ1fxDovvQxCVciYu7VQEjEZ
bd6fy0ORZ/DrwIzdeowKh1uHksOQOTZof31aGiH3ydijXldhWsrSYCtsxMMj
fZMGklxoq7ptqKfJg30h8XxXUgTmlhxHrYRb0OkiXjx9nMCkQ8ZO1ZgfYFxv
peiUTmCk+sXFKbutYHO7ZTJFBN54nu1NmVaB/8mnMtmR0XCazHNiKaijn944
b1DyL1AZOdZ1tB2IPvUhOvF5DBQpKTqWwl3gtRwduFkcD11JN+rrXbpQbqS/
9B6Nh2mPsZtHhi4GdkjP1mslwN19OD8h6EfY7Jc+130jAY1pB7X/c2AP5t2i
aGfiE1H7eYpXel4f6wR5nECdJFw+nZZ8oHc/ggpNTA52JmOihrt9RcYQth2z
CqpDyQja6iFoO2aIutwnmn1LyUgYxlOHGkNEmQXrftnDAxk6upHD/ydcDYnA
gkQeZAuNkx7YGOFe/Ng+S6sU1K8aTKR2H4LIg5XvVsrH3Lm4hwyJw8gf4Wq7
NPGhX7J/yc/oMMbVzYxPPOej4BzBvHnjMHxXCsUGl/hIL9Y0/+JtjAKL5lZ9
WiqC7NwWizdSIDUk2R00lIrfexYEawtNkaIVaT4hdR2OOqEqHmNm4Gt6YFkv
A4/qg96Hn7DCmhAfi4qxLFxOFLleyzqNhnBX5BvnYEboY1H+whb5AUWaF+/e
xPEnBT8pONgjZ+X5Ny+jXKS+dtih3u4IUltA/SvpNhbeiYLXfLsA85TUkPqG
O5ARbfJJu3sJdGVF9ZzZPBTS1d4o0S9D9uAKbfvqAjRZMZvcZ5whJYhu11hd
COOy2ApGiSv0Lq1mz8oWwfS3jOcPqL+iU3TWb3mpCPlD4RJNa5lgffTeSp0v
xrXqW6WpDe74kptN1egvwedVNQkv7D3xj40FodNVpWht/iOgXp4Flsd/rwTz
yqAmEZC6rtIbmYsftefp5fCi8/o49WwciJSbEd9cgdiZf+u/TfVBbySxWS+s
Au5Uf1V/5ytQfh1zRu1VBUJf/iV74agvenK43TaHBLDV3vY7R84PbzgWmYM8
Adyq4j9E9fmhbd9+2w6RAGXBvxj+fdcfSgPH814dqUT9stE2j2sBMD0y3abE
r8T8fT9pK/dAdOyeFKd/rIS3sJuUswgCdXndKRNUocxfQ0xOPhjpQ2F6C3FV
2ObRT3OaDsak1cVdaW+rYKuWZiBqDEFluP9vDJ1qtG50f3EunoNn9D19THY1
3I0LuUrMUKhItPx0+H41nmn1t0gbhcF6ZSmrTKIGXrRIGVulq9A0eLylzboG
XXoq093DV/Eouv/Kg5QaME/18A5UhcOZdavKtrcGKs85WQFULkx2/tLnqVqL
YSdJk4ly7vffGwpaGLXoiOt6t149Au33/3SMul0LWk+2k1piBFg2Qf4zolrs
XRrXfzwXAaHFN785zTrsbmKLa7pEgr2GG0txq0OcK3u7clckWNGbbhy7U4dY
nXC15X1R3zuOFZ7pr0NOTLNaQk4UysoZghg1Elvao7zq1hKo9iW6Hpwn8djl
iQIhSSDJekHhT0cSxCrVe6fXE2hy+mrdQifx6VCt1JgsAWFM6/X2CyRaS0fy
VZQI2OnwQ584kbiScvJ9xE4CEr13+G+ZJLoYyvYnjhDw0LdfPxFMIvKr8/Jm
MwKOS7WxEyEkjNIr7nwwJ6D5dXBxgkPi1lPLuatUAga1JeWTYSSCzUOTBacI
NMr+6DMVQUJLd6BTiUGA48Y8ORlL4u/WPb6DFwkIRD6jE9dIJDuH/FDhRCBU
zCVwIo7EUpY809KVwKKUNHM8gcSzDRZrQj0JDDRn5Y4mk4gp4ZVSWQRibXZ0
j/BIUCzfnVVkE7CNvTkuSiFRFBmUW+ZLwGwq7tuHVBKX1B5acfwJRPzx9dNQ
GgnFe5tmjgcSkJth9g5eJ/HIgZGhEEwgsvhl6ft0Etz5ItOBEALyMZaBAxkk
/gfaXENi
     "]], LineBox[CompressedData["
1:eJwVlHk81AkDhx2VlCtXEjlKWptWOuRovt4ow1j1QYhyC+MO4xgx+K0k5Jix
TakoR2KYMeaH0YWyu2U7NkXsG+UNHYRExWq9fzyf7+f55/vno+cf5RwkJSEh
EbHE/9fMdnacKfdhr9HL/oucz+MURbM2brP4D8rjwQ5hgOAo9L06WWniF5TW
0265pH0gvPNczz+hDVOYa8L3tvaFYGuEXVyA+C1FcXYlk8EPx8nN2tXJqpMU
JRfRnWzZaASWqLM7aZ8oaSceyFkWxmA7QzbysPgrRSGqc+AcNQ4aI1Jel6YW
KOm+z1mBmfH4brR4NVZVArrSEyxNHgMj5+cKbtCkMeyy2ufm80QIk9/RncSy
WEU73hHDS0GVafCr6cOrwbPRqtI7exLn3w27/zolB8dFuq41PRXWvEj9aFUl
2C2odUfJsGCoHaLYSlNBuaSkLzM/HTMLnm8dxOuwP9tt1NeWwIQHd5N2tiZa
PrmbV7IJjDX1+nw8vB5xzHMxjcMEBsJdnxdPaeGuxkrpY6m/wG+iyi9SVRdn
FXI4ZtVZoHqXOTXTNkLZc8hF6lE21CjFW+zFP+B93eie/PJcGMmGUPt/MIKz
+c9RmoO5sO6xCgnjGqEjfd9efa080Okj1XmJP+Jy/dFgATsPd0rMDf/abYwK
S/dcXVY+yLmPRbwjJog3PihhrVcA/0Mlhbuf78BEwFgYp70Q4yKW3nf5nThl
fSL/UH8hEteHCX7bvxNRaT2CselC5I3giYdoJyy/v9jRuLEILSlvlZjsXbCT
dHrTklkEhRqrgtvOZgg07nSSoBSjVXI4n/rIAlktMsSBS2zMuJ255y1tCZdr
x8fVGtkwqduxEGdmiYtU9/Yn99i45kaEll+2RLFNcJbiOBvnag1sv0VZYaw8
wavGgoPEwyFfa5UocJ5k9Kf/xcGFnlmBTI01rtrqXfr6uQSeW1K0wt7ZYMwx
trRchYv7rYmv0xwdQBrPNlq2l8I/fzQop/QQHDKXXd2vU4ZpccyBhl4X3GJb
SKtwymH3+NoeVQ939HLnmypWXAWn32Oj7u+e8NhoKPjkWoHZwdGkFf8cw6fv
3xreJ1RCfnRNTEmbLxzbTGwcy6pQ46UzoO7lj+pdqY45ldVodwhtp08HYKfG
g9fLuNdgVX+a710XhBk2bJrYNbA+y312mxoMu3zV+6rx11H9vzTpdplQ2D9T
HpX3rkVO0xUe5xYdUQtSM/7mdZiTFOX1uoejjDPu7LRYh67Oi4xWlUgcGTa0
s+7mQUeawVnZGIVmnuujgV/qEeFV9JLZGo2HvjcJJ2oDTk+fMvkvJwaXl30p
SpTgg06N144POIGGhIRt8y58pPT9qXBsXyzu79n/rb+WDxfDDReYynF4b8Hw
PzPPR4gw903myziY96obltgJUJ90fOffbfHIeb0pZ+hXAVoXzTaE5TCwzc/7
S++QAJ9vxsk50BNwucbYZcS4EVHiRy3KBxIxT7cd5iY0oj5eX0JZJQna3FI9
vrgRG8KGaH5TSVh+aY2gWVIIF50S09E7ybBN9+1K2idElxK91y2XieEXxGQh
Swi6VQ1LPTQFR1S3rovvEOLp5qG7cmYnEb72ilPJohARtAx5F/VUJNRwlY9R
mtC9TWvq0Ugq1ltMvKtIbELowZ6i3cI0HIKm6RV+E7SeMUsZVBbyT12U0P3Q
hBE/2b3jDSxkySz3zNIX4Y8z3YOrddMha6CuQzsqAq3nkp/OUgd8jL8E9heL
8NPCB5OHM+loM5oT1XeJsLU9WsogMAPpT2Q1bi2IcCYoWm9tdwYWv5o+t95G
4vSWNJ3F7ZmgVyYpvD9Goiy7UyevLBOGbQzZhgIS637PjGiWIdDVwSoyuU3i
YeBjVUKWgE6fvM/ikhOS2jcOrSYg9ohe332HxKQFueqdAoGnBTcDgjtIdPHG
qrXUCaxK5ptevEfiRPHPr9M3EZhsET5Y3k2i23utu+N/CNDNZufu95HImA9Y
1LAhYMCR7ix5QcLsHL/yzVLX9lgZpPr3k7jyxH4mlUogaTPv7tcBEkm2KYWC
gwTCOcuLDQdJbDZ69UDdm4BUX/Zu1hsSf3cZxw77EDBO6JCmjZAoDEjW5Pst
/W//qV1tlMRCqUqofRCBjAs1crVjJJ4qHliREk7g4W33kZ73JLLrinjUSAI0
ns+uyx9IUOwHXdWiCYjmauJCx0lcz0i8Wh9LoMFK/u4/EyR8de45MOMJrJQ2
6vntIwm1G2um7RIIjN4s6CmcJHHfw5urmkRgjbPNPa8pEqzP161fJRPQr7Cp
Mpgm8S/R9TG6
     "]], LineBox[CompressedData["
1:eJwV13k4VWsbBnDlnKSETAdlCNEoHKUTuSVliPiUIVNlzriHtdkowlaEQlSm
0mZVpkqoKJUphQYNokJkSJMUoVTf6699/a5rr73e91nrfe5nL3EPtvWaLSAg
YDNLQGDmU8/k+6cIkY8bQ0LOpGeMfzIU07uRea36vmHTwhVlLpdcoOJcfzCq
utNQ5NCh6x1bPeGWvDOrbdtbw8fqTDfOU1+sCjSlPKqHDe0nT5Y4XwjAAXWF
8+FSXwxHdHR1egQZ8Dwhk16/7Zthzat5A/cTmNAOEQ6yq54yHLtgW6m2kYLs
4Gzn06PThsJlnx2rORz8WfE7ny0lAI7atLJ8bggGsyZSbm4ThL9Zlf/VWi7K
w9/7ba8Wxsfdbz/8k7wf53R8er/azceEkN1Yhf8BZL1/63ByVAR1iTI2hZsj
YVQapMKQEsfZz3N9ynqjoKHgK1a1TRKnxTRTHzKioRx2ziJRTgpLxy7FhbRE
Q/55f5zrkBSke+nAjWoxEE3eOz0rVgaZWQ/mpj2Owdi007BFtRwE7peJ1Mrw
8NkxU00hXh4+U0Y1PZ48vKt4sXvEbhHqtnyQvV3Gw6uAne3HRxeD++BI3bhp
HPZ+Prc3SEoZtisXSif6HIKZW972a9tUYXJFyCcgIh5bkhCQd0UVwVSY077q
eBhXdyckyKnBWewYVT4ZD30ZhUbnITXEH0+jN7MToPkwU18gVh0+L3fFte85
AmnD48vMq5dDgafxa/2SJKwQ9jV7uXwFUr9v/y/OOQlGzwx8/TNXoLzmjdPW
jCT4+Q2eT+auhE+U405doWTcOfGfxpN1qyH18p6T5EAyrk6MpJXu0sIT/Uxa
I/EY3G1OpK5r/xdHlt0rY5qm4lPlwSV/FuiCFaO8TNMtFdxF/mVNW3Sx9DIE
GqlUJA+izbFSF9+eJirxzqbi+v5h8Yj0tZhjabDdYSoVooUGKbdt9SAmmaNx
h5+Gqllvj5o92oDy6P47sT3HMWaf2OgmqI/lrJ4HmqPHoVXy7zSlpw91rz6X
htnpuGDP23f2jD6i2lKHLi1Nx6nipSY/gg3Qt39Jw1G/dHDtfKeKxQ0hPLFI
NfNLOrKffS8TKjTC/iK3riUjGXBatn+x//vNyO4Xc5p96yTy5NODvwmaYHCy
z9++5SQGRUrqIhRMYH0kOe10x0kwR1/5JtmYIHtigjn/20nEV+tXll41QcJX
/YpdGqdw1fKn1ZeYLYhWFnXuTD4FCWZ4FGeRKda0Btf02WaiuYrbF2VpAa3N
ipKhd7JgL6m4TsfXAl6q2juMWrPQF1Cf0B9rAXkeZgl0ZOGHkqi2+Q0L1G76
0+U+koXlh/KjJFZsQ7Z1xMLrCtmIt324mBayhOvv92XF3GyYflB1aK6zwur9
97aJLMuB+9EhryM5NrAt+bpYMDgXX6uZWy+92AEREb68SMIZmD6+sF7K0QGj
El/iOm7mIeOlo6ryPSecfq4a6Z98Ft97hsLm/HLF3Thpr+G1fCwYWsg8cWMP
am9+/Bn/jI9CZ6VXMs7uKKxMrZCzy0etxb5av68eMFvzeZVGfT4MLiZcdivx
Qm3Q3Yt1KwpgdCzz+W0zHyhJ/lq4MbIA5/ujBGuF9qHaXW5RX0sBjlTwSzNu
+aHoYg2TIULjzi+Vyh8NfvDZoDZsuYDG9635N3e3+GHIUv7xMlEaezvzW5Z3
+KGvPuVTtxiN9b8LhmtG/eA5yg8wkaQxYHp+6aCaP+ymu4rG5GgYvSrOXZfo
D5MlP3I/qNOYmFWZ/MIhAP3iFtcNQeN3gaN0k1sAVrJe+841ojHHbDrnqlcA
Ju2uRbYRSx3dXJLBDgCMNr7aa0xDS/5J845jAcg7ZeQWsYWGn86I0OO7ATBg
MmtTt9Hodl8ec29tIJblb8qzcqBxtz43pEoyCCsDx0JFA2k0qMmV68gHQbzR
1O4CcW1c+kixchDmiPlc3xRE46Zpou/p1UGQDK4SZwfTKGvhOsWakuujuaKP
mTRynu4wtIoIgpoxx5MdQoP1VnhOb18QTFTen9sTRYNhEmfsNBwE5jl26gfi
QFog6ulIEIb/VhEKOUjD12dionE6CIcsjqcnRNNw/dA/XCQTjGQ7K4PiWBpm
324/oCyCYcAXedtxmIaSYEjG3CvBKD1gVdh9jMbnGilbkapgSCcklHilkPVy
y0XF7wTjqEjMqo/ETp+/HP7nYTD+bg/On0ilcaLTP1z9fTDmnythzU2nIdRx
eY3KQgY4Dx7ULjxFI/LiOSkjcwbelLwLaThDY3D+96+1lgxYekYz9PNoWO3b
0rbZhoEYy/6PZcSL1fqTTR0Y+G93Q1DuWRrVmUuErL0Y2JQ0Lycon7wvvJwp
12gGVsZvb5w6R/bvnNYdUcWAtvTG4xWlNJq1X3p8uslAjZ+Rq/xFGupzVYbd
7jBwc+3Ciiji7oqyb5uaGJguqptrfomGjWjb3LnPGTjOHLdtv0xDt1bs3/Qv
DAgH9hx9VU7jp3ry4RINJpyFFOtTq2g4/nomoriSibc9KSHDxBVPF6cd02RC
t3H4hlE1jYCDJTmstUwsF/s4/Ym4u7OlbP1mJharxLpsvkmjLmne6wY3JrSc
tlZ03qJJnzms1ZXBxOF/xp9V1tN4c14/RTKTiUbjh7I/ide7joyY5zARVvbX
LKMGGu+a7C9d5TMRKyp4+x7x1tylmimXmDgrfHLseSON2Wb1KzffZ2L2+IE9
PU00wnN/qxdOM5F+oXv+pRYaT2yvHOr5w0R3XZD0MPHyud6D0oIsPGyVaFJp
pdHBekDHCLNwKXCeagbxOrMcNRcZFgov9NzhPKDx9et/KmJaLLhc21Cq/oic
DzOOAseDhW/eK8XMntAoKtpQ88WbBWE9jnkE8XsRAdcAPxbO1RxVvkjs33Yk
x4NJ7udYQ0s8JfVyyltkG8VCVthrsRfEQQEtcmuyWRj8cCza6jmNiw9TqopO
s/DHbGVmOPFnLftd6nwWcn1qrc8TB4+/OaVQyMLvy95Zf4gZkd//EbnGQv5j
68LidhrslCUyw09YSOsxahl9QZ7X18FKz3YWqqJYfbIdNMZ2lti96WTh5Okb
WSCm5PQyXrxhQeCM3EgicQjfUuruZxacss+tUO6kwa0Ilcifx4al+5Cw3ksa
12U2XlEUZWOPgKSxI/Ekd7Zt1kI2Vop7KYQRh21MTk2VZeOG7++aKuLwu3zx
g+psRO9NKVr3isb+jgeirsZsPGLvslJ6TX5P7k987hY2RuRMJtYTf3PSEuw2
Y8NBavp/tsR+XWkTbtZs+Mrpy/OIHfoc3uxxYYPf3zD5ljhNNcHp7G42nrwb
XvmT+KFn9bNedzbAKhSX6KJhMrT4vvs+NhTHXUcMiXU+9pZ5hrAx3OrxVwZx
0GrJVXQYG4e3qzUVEhcGmZwb2M9GipKFwS1i5dFzWd6xbFR6rDAcJF7w3T/W
N4UNGf1pvk43eT//jO8MKGJDtPPmnBpitU0aj0pK2fCuT/zZSrw7xtH802U2
kuO3F7wmbv/rxsaga2x4CkpI/CSuFz6ozmhg46cL9ur2kP5tUZZ3uYmNI3+c
JzcRb0jqkx9tZiPYRsvEmviy6BYxVhsbWzbs/eFLfFpy3iS7m40Dn468PUXc
uVOfVdHLxrpf81ULiKVOBHwc62fjzPY5speIE2UfveF8YGPVi7sqDcR3dwk4
X/3Mxl/CNesfEs/O1n7+fZQNH2bSXx3EXIX0+6GTbJiHydx6T1zh1rj5+k82
8lsFSr4Rj5z5XjP5m40Ft1Vtpom9VXZdCfubwtZ41g2RNzR2aChmR0hQUPrd
rLyCmNdrerNYmsKunQF8LeKKbGbXK1kKPlovu9YRS4k3KhkoUbCZRcUYE5s0
fzYKUKGwRb31gykxhyfrnrOUQpuWuZgVcfukf8H0SgpxAvPi7InnlGc0rlpD
ofBa2Asn4nWBtwdddCj8refd70bsrTEslLyWQrnHQLE78cleieU16yk0yS/Q
9Ca+l21g8UmfQqzON799xJN23v4KoCDPLXUPIF4mnpJkZUxB5Mr/pIOJHZur
Sg9soaB1ejyGSRzPe/uw1IzCra8Xi9nEVYYLvnRto1C3+/gxDvH7yXULRa0p
tCZe1wwlli/fo2NoS2GHjG4Cl9gi8MiOIDsKnJOLzoQRh2tUUKcdKUie4THC
iYt6uzIeOlM4Vsn7NeNX2ULXfrtR+OSivTWCWMReu0PTnYKhaJ7FjA3Enafc
vCh82DA4b8YBzTz5Y74U8qzkDs9cn8O7qH/bn0Lmhe23Z+7XatjhMhJEIft8
dvnMen5NzopUYlHoypX2nFmvZvnKM9YcCoodbY9n9uMWaHcnikthX9bA1Mx+
j2pE9V6KoHBuiXfPTD1u9V6Y/SaSQkKBb/RMvT5nP1EVj6FQZDP7zUw9leyn
TYziKExYmv2cqbeNuLo3I56CUJX105nncbDZ+nBeIgVeyWpfD+I3hvn3BdIo
pHjW3nMmFp9qfa+VQeqtezbdgXhT+ff5e09R2MkvVthBzNew2F57mkLZonQf
c+Invezg0bMU+ieyl5kQz87JTVlCU6AkVM4bEnuIjz6JLqawx3b6tQ5xerP8
WNlFCrcXhKevIm7gmUj3lVEo/fe+sDqx2tRJB+PrFMazNDVliXeW13JZNyjk
rA/qEieOC/yQyb9FwWCyzUKYeLDX8PXsRgrCFo57psh5kcnx/aVzj4LX7/y5
o8Rb7dMUPVooVMt7B78jPt88sKe+jcKlmDPcdmLf8qSB2G4KyVtU98+c52j5
e1unesn+tnStnTnvWdGCF4IGKHxp0Muf6Qet1uF+uz5SqKxZm3mQWPujz4jm
Dwr/zVo2bklssSPfpuAXBZ3c69tB7FndXSY3iwODmmsu2sQn4u2ov+ZycOW5
zwkp4h9qm6c6pTmwD9gV+4L0L8mkSCdrOQ5eBS6LbSJe9a3qRsNiDlgZ2uuv
EbvVakVeUuUAbIe6DOI6V0XBOG0O3JaV77ImTjwxJaJlxUHn28yiCtJfC37p
BtE2HKS5tAnnEd/yZDyS38lBz/qnSonEX3SGUv925kBt6BRjD/HOR89kXvmS
71d1nRciXjz3svIhHgclsTdjzEgerA3+EP3zMAdfuYuc1hBvb1d/y0jkYMFI
y7A08cGCXNo5jYPaD9E6fSSfBowSV2jncSC3tN8/lPhimLfu6xscfKyljqeT
PKu7vYAhc5uDnOfhE1zi9r8ri23qOGhs263oSvwnVVC18R4HYvqSlWrENkV5
Cy8+5yA/UG9uGcnT0ZcvP0eNcJAkrGB/i+StroF1oapqCLQCLaVKSH6bxXzv
d1UPwfq0nsl4Ypd7ucqnlodgp14x34uYt/PjSRGtELinrN2qSPw8IOHQuEEI
4hbJPkoi80BIbr1Hk30I/F0XTLo9I/3nt56i/5EQGHYaL+1oo3F19Evm++QQ
tDUnbCkivtJfKO2XGoL/igJU9xOXNC9asO9UCEqE9sgqEeed+PPT+1wIfrky
hvc+Jv1Ns6nTvS4Eye5X9V89JHnsZp/h9CMEuw3+1c8l89V4DSVi4ReK0Xtn
d3uQeW1wufqaqsBQGMQZVqgTd2S8+N8yZig2qC14OEzmvZuBG07O4YaCP5z8
v2BinoKASn1cKNb9uzErtI7kwYFEPYOzofhstWHzgTskvw347podoUg0PhHm
SubL4OpH1yW2cqFhqp/GIfOry9+fKreac1Ho5PpkDbGZzbzycEsuYv7n/Xb4
Cg2VQZPSPlsu5IV8uK7E7Qurz17ZzcUn36pg4zIahvsKjtiGcbFrpXGeIJmX
RWXDXNJKuDjP/BXgUUTeB46KgIRkGFa73mjKJvO7ov+bbXtHwzD1ONpFJoHk
ndIJnaE74QgW7zEKYZB8Ffd7YZ8UgfA1uv8J2pN5xqDwoMy+/ZC0Z83+tI7G
U/U3DSJ6B6BjtXvo5T9kvt8Ws2CHTCS+aesMyY0VoFVz8eijwUgoCh0Y+vi4
APusn6WtK4/CPDb7+kBJARY/j8gJMTsI96mNLfq8AgzuFd746dJBeJdWrvng
UoD7ia0985WjcXVAM2VcqwDbnp3eq3Q0GkInZcKT/yrAmumPWg/HouF48HiT
wst8rKplzF7qGQPJf712yRfnI9GLseSf1hioBjMGXSLzkbAsSum3diwWVfwy
v/+/fOTF1ysl58VCpnLYpEI5H3L3YgOvCfHw4N1EqNVXPpnHHkvxhHm4YVkk
dmCUD94shZs283n4UquSW/KFjy8brs57L8rDKqP9mfNH+Lhb+u78YhkelN4F
yt7/wAfruFVftBoP3beX6xoP8NHq9o+D5SYeJs/mC6/u4CPmp8dv2c08xK17
6un8gg+9U5fpARMeqXvY1YR2Pvht5mORZjzkr9+4cZD83w8z2Z9aZs2DQKRh
5+k2PtRX9LbIuJH1GHVai7bw8fruavbb3Txct/wmZdDMR6pHuPzlvTwMxHQ+
3nefj+kcyX3mXjx0XFFa3djEx1OxrXP2B/BA39HgRjTwEV+SVmoWxMOcer2x
C/V8GJr37JRmkP04GPq01/FRFMPNv8jmoWybiY52LR97lBotIjg89OhuP+J2
hw/pmwu/moby0FXr0Zl4m49mR7dMqTAeJHSOKFXd4uPgeJFRbzgPnxrvugzW
8PF/olcPQA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 0.01}, {0., 0.09802960398000592}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5012087484666967`*^9, 3.5012088048332233`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   FractionBox[
    SqrtBox["y"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "y"}], ")"}], "3"]], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "0", ",", "0.1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.501208896158605*^9, 3.5012089277982807`*^9}, {
  3.50120896801721*^9, 3.5012090156312637`*^9}}],

Cell[BoxData["0.0177666585289559`"], "Output",
 CellChangeTimes->{
  3.501208929157283*^9, {3.501208971311614*^9, 3.501209016571224*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fs", "/.", 
  RowBox[{"n", "\[Rule]", "2"}]}]], "Input",
 CellChangeTimes->{{3.50120897424107*^9, 3.5012089783504333`*^9}}],

Cell[BoxData[
 FractionBox[
  SqrtBox["y"], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "y"}], ")"}], "3"]]], "Output",
 CellChangeTimes->{3.501208978729971*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.501208990072274*^9, 3.50120899074441*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f1", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ekq", "-", "ek"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dk", " ", "ekq"}], "+", 
      RowBox[{"dkq", " ", "ek"}]}], ")"}]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ek", " ", "Ekq"}], "+", 
      RowBox[{"ekq", " ", "Ek"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{"dkq", "-", "dk"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.502051749674657*^9, 3.502051801639358*^9}, {
  3.5020519263512077`*^9, 3.502051929997061*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ek"}], "+", "ekq"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"dkq", " ", "ek"}], "+", 
     RowBox[{"dk", " ", "ekq"}]}], ")"}]}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "dk"}], "+", "dkq"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Ek", " ", "ekq"}], "+", 
     RowBox[{"ek", " ", "Ekq"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.502051802271864*^9, 3.502051932250346*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f2", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ekq", "+", "ek"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dk", " ", "ekq"}], "-", 
      RowBox[{"dkq", " ", "ek"}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ek", " ", "Ekq"}], "-", 
      RowBox[{"ekq", " ", "Ek"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{"dkq", "+", "dk"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5020518046057053`*^9, 3.502051848306965*^9}, {
  3.502051934709465*^9, 3.5020519366131763`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"ek", "+", "ekq"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "dkq"}], " ", "ek"}], "+", 
     RowBox[{"dk", " ", "ekq"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"dk", "+", "dkq"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "Ek"}], " ", "ekq"}], "+", 
     RowBox[{"ek", " ", "Ekq"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.502051849011795*^9, 3.5020519372365017`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f1", "-", "f2"}]], "Input",
 CellChangeTimes->{{3.502051851396233*^9, 3.5020518528413153`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{"ek", "+", "ekq"}], ")"}]}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "dkq"}], " ", "ek"}], "+", 
     RowBox[{"dk", " ", "ekq"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "ek"}], "+", "ekq"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"dkq", " ", "ek"}], "+", 
     RowBox[{"dk", " ", "ekq"}]}], ")"}]}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"dk", "+", "dkq"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "Ek"}], " ", "ekq"}], "+", 
     RowBox[{"ek", " ", "Ekq"}]}], ")"}]}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "dk"}], "+", "dkq"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Ek", " ", "ekq"}], "+", 
     RowBox[{"ek", " ", "Ekq"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.5020518534157763`*^9, 3.502051938606688*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.502051854782735*^9, 3.502051857602325*^9}}],

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"dk", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek"}], "+", "Ek"}], ")"}], " ", "ekq"}], "+", 
    RowBox[{"dkq", " ", "ek", " ", 
     RowBox[{"(", 
      RowBox[{"ekq", "-", "Ekq"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.5020518581035347`*^9, 3.502051940856469*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.5020518686278954`*^9, 3.502051872778933*^9}}],

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"dk", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek"}], "+", "Ek"}], ")"}], " ", "ekq"}], "+", 
    RowBox[{"dkq", " ", "ek", " ", 
     RowBox[{"(", 
      RowBox[{"ekq", "-", "Ekq"}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.502051873260651*^9, 3.5020519428076973`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Ekq", "\[Rule]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ekq", "^", "2"}], "+", 
        RowBox[{"dkq", "^", "2"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", "2"}], ")"}]}]}], ",", 
    RowBox[{"Ek", "\[Rule]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ek", "^", "2"}], "+", 
        RowBox[{"dk", "^", "2"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", "2"}], ")"}]}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.502052002942124*^9, 3.502052038315545*^9}}],

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"dk", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek"}], "+", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["dk", "2"], "+", 
         SuperscriptBox["ek", "2"]}]]}], ")"}], " ", "ekq"}], "+", 
    RowBox[{"dkq", " ", "ek", " ", 
     RowBox[{"(", 
      RowBox[{"ekq", "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["dkq", "2"], "+", 
         SuperscriptBox["ekq", "2"]}]]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.502052038873926*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%%", "]"}]], "Input",
 CellChangeTimes->{{3.5020520405740347`*^9, 3.502052059110505*^9}}],

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"dk", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "ek"}], "+", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["dk", "2"], "+", 
         SuperscriptBox["ek", "2"]}]]}], ")"}], " ", "ekq"}], "+", 
    RowBox[{"dkq", " ", "ek", " ", 
     RowBox[{"(", 
      RowBox[{"ekq", "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["dkq", "2"], "+", 
         SuperscriptBox["ekq", "2"]}]]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.502052045696137*^9, 3.502052060107383*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"k", "^", "2"}], "/", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"k", "^", "2"}], "+", 
       RowBox[{"K", "^", "2"}]}], ")"}], "^", "2"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.502475714933017*^9, 3.502475744988242*^9}}],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Re", "[", "K", "]"}], ">", "0"}], ",", 
   FractionBox["\[Pi]", 
    RowBox[{"4", " ", "K"}]], ",", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     FractionBox[
      SuperscriptBox["k", "2"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["k", "2"], "+", 
         SuperscriptBox["K", "2"]}], ")"}], "2"]], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "\[Infinity]"}], "}"}], ",", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{
       RowBox[{"Re", "[", "K", "]"}], "\[LessEqual]", "0"}]}]}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{{3.502475735134473*^9, 3.502475745966653*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ek", "-", "ekq"}], ",", "0", ",", 
      RowBox[{"-", "Ikq"}], ",", "Ik"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{
       RowBox[{"-", "ek"}], "+", "ekq"}], ",", 
      RowBox[{"-", "Ik"}], ",", "Ikq"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "Ikq"}], ",", 
      RowBox[{"-", "Ik"}], ",", 
      RowBox[{
       RowBox[{"-", "ekq"}], "-", "ek"}], ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"Ik", ",", "Ikq", ",", "0", ",", 
      RowBox[{"ekq", "+", "ek"}]}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.5025392799261093`*^9, 3.5025393799444227`*^9}, {
  3.503084783975678*^9, 3.503084800128894*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ek", "-", "ekq"}], ",", "0", ",", 
     RowBox[{"-", "Ikq"}], ",", "Ik"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      RowBox[{"-", "ek"}], "+", "ekq"}], ",", 
     RowBox[{"-", "Ik"}], ",", "Ikq"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "Ikq"}], ",", 
     RowBox[{"-", "Ik"}], ",", 
     RowBox[{
      RowBox[{"-", "ek"}], "-", "ekq"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Ik", ",", "Ikq", ",", "0", ",", 
     RowBox[{"ek", "+", "ekq"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.502539380452759*^9, 3.5030847527433577`*^9, 
  3.503084802741205*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Eigensystem", "[", "T", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5025393822797947`*^9, 3.502539394125847*^9}, {
  3.503084809181264*^9, 3.50308483893073*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["ek", "2"], "+", 
        SuperscriptBox["ekq", "2"], "+", 
        SuperscriptBox["Ik", "2"], "+", 
        SuperscriptBox["Ikq", "2"], "-", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ekq", "2"], "+", 
             SuperscriptBox["Ik", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ek", "2"], "+", 
             SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ",", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["ek", "2"], "+", 
       SuperscriptBox["ekq", "2"], "+", 
       SuperscriptBox["Ik", "2"], "+", 
       SuperscriptBox["Ikq", "2"], "-", 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["ekq", "2"], "+", 
            SuperscriptBox["Ik", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["ek", "2"], "+", 
            SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]], ",", 
     RowBox[{"-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["ek", "2"], "+", 
        SuperscriptBox["ekq", "2"], "+", 
        SuperscriptBox["Ik", "2"], "+", 
        SuperscriptBox["Ikq", "2"], "+", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ekq", "2"], "+", 
             SuperscriptBox["Ik", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ek", "2"], "+", 
             SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ",", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["ek", "2"], "+", 
       SuperscriptBox["ekq", "2"], "+", 
       SuperscriptBox["Ik", "2"], "+", 
       SuperscriptBox["Ikq", "2"], "+", 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["ekq", "2"], "+", 
            SuperscriptBox["Ik", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["ek", "2"], "+", 
            SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ek", "2"], " ", "ekq"}], "-", 
          RowBox[{
           SqrtBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ekq", "2"], "+", 
               SuperscriptBox["Ik", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ek", "2"], "+", 
               SuperscriptBox["Ikq", "2"]}], ")"}]}]], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["ek", "2"], "+", 
             SuperscriptBox["ekq", "2"], "+", 
             SuperscriptBox["Ik", "2"], "+", 
             SuperscriptBox["Ikq", "2"], "-", 
             RowBox[{"2", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["ekq", "2"], "+", 
                  SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["ek", "2"], "+", 
                  SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], "+", 
          RowBox[{"ekq", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["Ikq", "2"], "-", 
             SqrtBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ekq", "2"], "+", 
                 SuperscriptBox["Ik", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ek", "2"], "+", 
                 SuperscriptBox["Ikq", "2"]}], ")"}]}]]}], ")"}]}], "+", 
          RowBox[{"ek", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["Ik", "2"]}], "+", 
             SqrtBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ekq", "2"], "+", 
                 SuperscriptBox["Ik", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ek", "2"], "+", 
                 SuperscriptBox["Ikq", "2"]}], ")"}]}]], "-", 
             RowBox[{"ekq", " ", 
              RowBox[{"(", 
               RowBox[{"ekq", "+", 
                SqrtBox[
                 RowBox[{
                  SuperscriptBox["ek", "2"], "+", 
                  SuperscriptBox["ekq", "2"], "+", 
                  SuperscriptBox["Ik", "2"], "+", 
                  SuperscriptBox["Ikq", "2"], "-", 
                  RowBox[{"2", " ", 
                   SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}], 
            ")"}]}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"Ik", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["Ikq", "2"]}], "+", 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["Ikq", "2"]}], ")"}]}]], "+", 
            RowBox[{"ek", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "ek"}], "+", 
               SqrtBox[
                RowBox[{
                 SuperscriptBox["ek", "2"], "+", 
                 SuperscriptBox["ekq", "2"], "+", 
                 SuperscriptBox["Ik", "2"], "+", 
                 SuperscriptBox["Ikq", "2"], "-", 
                 RowBox[{"2", " ", 
                  SqrtBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}], 
           ")"}]}], ")"}]}], ",", 
       FractionBox[
        RowBox[{"Ikq", " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["ek", "2"], "+", 
           SuperscriptBox["ekq", "2"], "+", 
           SuperscriptBox["Ik", "2"], "+", 
           SuperscriptBox["Ikq", "2"], "-", 
           RowBox[{"2", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["Ikq", "2"]}], "+", 
         SqrtBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ekq", "2"], "+", 
             SuperscriptBox["Ik", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ek", "2"], "+", 
             SuperscriptBox["Ikq", "2"]}], ")"}]}]], "+", 
         RowBox[{"ek", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "ek"}], "+", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["ek", "2"], "+", 
              SuperscriptBox["ekq", "2"], "+", 
              SuperscriptBox["Ik", "2"], "+", 
              SuperscriptBox["Ikq", "2"], "-", 
              RowBox[{"2", " ", 
               SqrtBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["ekq", "2"], "+", 
                   SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["ek", "2"], "+", 
                   SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}]], 
       ",", 
       FractionBox[
        RowBox[{"Ikq", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Ik", "2"], "-", 
           SqrtBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ekq", "2"], "+", 
               SuperscriptBox["Ik", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ek", "2"], "+", 
               SuperscriptBox["Ikq", "2"]}], ")"}]}]], "+", 
           RowBox[{"ekq", " ", 
            RowBox[{"(", 
             RowBox[{"ekq", "+", 
              SqrtBox[
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"], "+", 
                SuperscriptBox["Ikq", "2"], "-", 
                RowBox[{"2", " ", 
                 SqrtBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}], 
          ")"}]}], 
        RowBox[{"Ik", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["Ikq", "2"]}], "+", 
           SqrtBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ekq", "2"], "+", 
               SuperscriptBox["Ik", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ek", "2"], "+", 
               SuperscriptBox["Ikq", "2"]}], ")"}]}]], "+", 
           RowBox[{"ek", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "ek"}], "+", 
              SqrtBox[
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"], "+", 
                SuperscriptBox["Ikq", "2"], "-", 
                RowBox[{"2", " ", 
                 SqrtBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}], 
          ")"}]}]], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ek", "2"], " ", "ekq"}], "+", 
          RowBox[{
           SqrtBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ekq", "2"], "+", 
               SuperscriptBox["Ik", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ek", "2"], "+", 
               SuperscriptBox["Ikq", "2"]}], ")"}]}]], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["ek", "2"], "+", 
             SuperscriptBox["ekq", "2"], "+", 
             SuperscriptBox["Ik", "2"], "+", 
             SuperscriptBox["Ikq", "2"], "-", 
             RowBox[{"2", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["ekq", "2"], "+", 
                  SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["ek", "2"], "+", 
                  SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], "+", 
          RowBox[{"ekq", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["Ikq", "2"], "-", 
             SqrtBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ekq", "2"], "+", 
                 SuperscriptBox["Ik", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ek", "2"], "+", 
                 SuperscriptBox["Ikq", "2"]}], ")"}]}]]}], ")"}]}], "+", 
          RowBox[{"ek", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["Ik", "2"]}], "+", 
             SqrtBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ekq", "2"], "+", 
                 SuperscriptBox["Ik", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ek", "2"], "+", 
                 SuperscriptBox["Ikq", "2"]}], ")"}]}]], "+", 
             RowBox[{"ekq", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "ekq"}], "+", 
                SqrtBox[
                 RowBox[{
                  SuperscriptBox["ek", "2"], "+", 
                  SuperscriptBox["ekq", "2"], "+", 
                  SuperscriptBox["Ik", "2"], "+", 
                  SuperscriptBox["Ikq", "2"], "-", 
                  RowBox[{"2", " ", 
                   SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}], 
            ")"}]}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"Ik", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["Ikq", "2"]}], "+", 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["Ikq", "2"]}], ")"}]}]], "-", 
            RowBox[{"ek", " ", 
             RowBox[{"(", 
              RowBox[{"ek", "+", 
               SqrtBox[
                RowBox[{
                 SuperscriptBox["ek", "2"], "+", 
                 SuperscriptBox["ekq", "2"], "+", 
                 SuperscriptBox["Ik", "2"], "+", 
                 SuperscriptBox["Ikq", "2"], "-", 
                 RowBox[{"2", " ", 
                  SqrtBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}], 
           ")"}]}], ")"}]}], ",", 
       FractionBox[
        RowBox[{"Ikq", " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["ek", "2"], "+", 
           SuperscriptBox["ekq", "2"], "+", 
           SuperscriptBox["Ik", "2"], "+", 
           SuperscriptBox["Ikq", "2"], "-", 
           RowBox[{"2", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], 
        RowBox[{
         SuperscriptBox["Ikq", "2"], "-", 
         SqrtBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ekq", "2"], "+", 
             SuperscriptBox["Ik", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ek", "2"], "+", 
             SuperscriptBox["Ikq", "2"]}], ")"}]}]], "+", 
         RowBox[{"ek", " ", 
          RowBox[{"(", 
           RowBox[{"ek", "+", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["ek", "2"], "+", 
              SuperscriptBox["ekq", "2"], "+", 
              SuperscriptBox["Ik", "2"], "+", 
              SuperscriptBox["Ikq", "2"], "-", 
              RowBox[{"2", " ", 
               SqrtBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["ekq", "2"], "+", 
                   SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["ek", "2"], "+", 
                   SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}]], 
       ",", 
       FractionBox[
        RowBox[{"Ikq", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["ekq", "2"], "+", 
           SuperscriptBox["Ik", "2"], "-", 
           SqrtBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ekq", "2"], "+", 
               SuperscriptBox["Ik", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ek", "2"], "+", 
               SuperscriptBox["Ikq", "2"]}], ")"}]}]], "-", 
           RowBox[{"ekq", " ", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["ek", "2"], "+", 
              SuperscriptBox["ekq", "2"], "+", 
              SuperscriptBox["Ik", "2"], "+", 
              SuperscriptBox["Ikq", "2"], "-", 
              RowBox[{"2", " ", 
               SqrtBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["ekq", "2"], "+", 
                   SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["ek", "2"], "+", 
                   SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}]}], ")"}]}], 
        RowBox[{"Ik", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["Ikq", "2"]}], "+", 
           SqrtBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ekq", "2"], "+", 
               SuperscriptBox["Ik", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ek", "2"], "+", 
               SuperscriptBox["Ikq", "2"]}], ")"}]}]], "-", 
           RowBox[{"ek", " ", 
            RowBox[{"(", 
             RowBox[{"ek", "+", 
              SqrtBox[
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"], "+", 
                SuperscriptBox["Ikq", "2"], "-", 
                RowBox[{"2", " ", 
                 SqrtBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}], 
          ")"}]}]], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["ek", "2"], " ", "ekq"}], "+", 
           RowBox[{"ekq", " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["Ikq", "2"], "+", 
              SqrtBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["ekq", "2"], "+", 
                  SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["ek", "2"], "+", 
                  SuperscriptBox["Ikq", "2"]}], ")"}]}]]}], ")"}]}], "+", 
           RowBox[{
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["Ikq", "2"]}], ")"}]}]], " ", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["ek", "2"], "+", 
              SuperscriptBox["ekq", "2"], "+", 
              SuperscriptBox["Ik", "2"], "+", 
              SuperscriptBox["Ikq", "2"], "+", 
              RowBox[{"2", " ", 
               SqrtBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["ekq", "2"], "+", 
                   SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["ek", "2"], "+", 
                   SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], "-", 
           RowBox[{"ek", " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["Ik", "2"], "+", 
              SqrtBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["ekq", "2"], "+", 
                  SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["ek", "2"], "+", 
                  SuperscriptBox["Ikq", "2"]}], ")"}]}]], "+", 
              RowBox[{"ekq", " ", 
               RowBox[{"(", 
                RowBox[{"ekq", "+", 
                 SqrtBox[
                  RowBox[{
                   SuperscriptBox["ek", "2"], "+", 
                   SuperscriptBox["ekq", "2"], "+", 
                   SuperscriptBox["Ik", "2"], "+", 
                   SuperscriptBox["Ikq", "2"], "+", 
                   RowBox[{"2", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}], 
             ")"}]}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"Ik", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ek", "2"], "+", 
             SuperscriptBox["Ikq", "2"], "+", 
             SqrtBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ekq", "2"], "+", 
                 SuperscriptBox["Ik", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ek", "2"], "+", 
                 SuperscriptBox["Ikq", "2"]}], ")"}]}]], "-", 
             RowBox[{"ek", " ", 
              SqrtBox[
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"], "+", 
                SuperscriptBox["Ikq", "2"], "+", 
                RowBox[{"2", " ", 
                 SqrtBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}]}], ")"}]}], 
          ")"}]}]}], ",", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"Ikq", " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["ek", "2"], "+", 
            SuperscriptBox["ekq", "2"], "+", 
            SuperscriptBox["Ik", "2"], "+", 
            SuperscriptBox["Ikq", "2"], "+", 
            RowBox[{"2", " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ekq", "2"], "+", 
                 SuperscriptBox["Ik", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ek", "2"], "+", 
                 SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], 
         RowBox[{
          SuperscriptBox["ek", "2"], "+", 
          SuperscriptBox["Ikq", "2"], "+", 
          SqrtBox[
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["ekq", "2"], "+", 
              SuperscriptBox["Ik", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["ek", "2"], "+", 
              SuperscriptBox["Ikq", "2"]}], ")"}]}]], "-", 
          RowBox[{"ek", " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["ek", "2"], "+", 
             SuperscriptBox["ekq", "2"], "+", 
             SuperscriptBox["Ik", "2"], "+", 
             SuperscriptBox["Ikq", "2"], "+", 
             RowBox[{"2", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["ekq", "2"], "+", 
                  SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["ek", "2"], "+", 
                  SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}]}]]}], ",", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"Ikq", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Ik", "2"], "+", 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["Ikq", "2"]}], ")"}]}]], "+", 
            RowBox[{"ekq", " ", 
             RowBox[{"(", 
              RowBox[{"ekq", "+", 
               SqrtBox[
                RowBox[{
                 SuperscriptBox["ek", "2"], "+", 
                 SuperscriptBox["ekq", "2"], "+", 
                 SuperscriptBox["Ik", "2"], "+", 
                 SuperscriptBox["Ikq", "2"], "+", 
                 RowBox[{"2", " ", 
                  SqrtBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}], 
           ")"}]}], 
         RowBox[{"Ik", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["ek", "2"], "+", 
            SuperscriptBox["Ikq", "2"], "+", 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["Ikq", "2"]}], ")"}]}]], "-", 
            RowBox[{"ek", " ", 
             SqrtBox[
              RowBox[{
               SuperscriptBox["ek", "2"], "+", 
               SuperscriptBox["ekq", "2"], "+", 
               SuperscriptBox["Ik", "2"], "+", 
               SuperscriptBox["Ikq", "2"], "+", 
               RowBox[{"2", " ", 
                SqrtBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}]}], 
           ")"}]}]]}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["ek", "2"]}], " ", "ekq"}], "-", 
          RowBox[{"ekq", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["Ikq", "2"], "+", 
             SqrtBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ekq", "2"], "+", 
                 SuperscriptBox["Ik", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ek", "2"], "+", 
                 SuperscriptBox["Ikq", "2"]}], ")"}]}]]}], ")"}]}], "+", 
          RowBox[{
           SqrtBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ekq", "2"], "+", 
               SuperscriptBox["Ik", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["ek", "2"], "+", 
               SuperscriptBox["Ikq", "2"]}], ")"}]}]], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["ek", "2"], "+", 
             SuperscriptBox["ekq", "2"], "+", 
             SuperscriptBox["Ik", "2"], "+", 
             SuperscriptBox["Ikq", "2"], "+", 
             RowBox[{"2", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["ekq", "2"], "+", 
                  SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["ek", "2"], "+", 
                  SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], "+", 
          RowBox[{"ek", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ekq", "2"], "+", 
             SuperscriptBox["Ik", "2"], "+", 
             SqrtBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ekq", "2"], "+", 
                 SuperscriptBox["Ik", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["ek", "2"], "+", 
                 SuperscriptBox["Ikq", "2"]}], ")"}]}]], "-", 
             RowBox[{"ekq", " ", 
              SqrtBox[
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"], "+", 
                SuperscriptBox["Ikq", "2"], "+", 
                RowBox[{"2", " ", 
                 SqrtBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}]}], 
            ")"}]}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"Ik", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Ikq", "2"], "+", 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["Ikq", "2"]}], ")"}]}]], "+", 
            RowBox[{"ek", " ", 
             RowBox[{"(", 
              RowBox[{"ek", "+", 
               SqrtBox[
                RowBox[{
                 SuperscriptBox["ek", "2"], "+", 
                 SuperscriptBox["ekq", "2"], "+", 
                 SuperscriptBox["Ik", "2"], "+", 
                 SuperscriptBox["Ikq", "2"], "+", 
                 RowBox[{"2", " ", 
                  SqrtBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}], 
           ")"}]}], ")"}]}], ",", 
       FractionBox[
        RowBox[{"Ikq", " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["ek", "2"], "+", 
           SuperscriptBox["ekq", "2"], "+", 
           SuperscriptBox["Ik", "2"], "+", 
           SuperscriptBox["Ikq", "2"], "+", 
           RowBox[{"2", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], 
        RowBox[{
         SuperscriptBox["Ikq", "2"], "+", 
         SqrtBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ekq", "2"], "+", 
             SuperscriptBox["Ik", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ek", "2"], "+", 
             SuperscriptBox["Ikq", "2"]}], ")"}]}]], "+", 
         RowBox[{"ek", " ", 
          RowBox[{"(", 
           RowBox[{"ek", "+", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["ek", "2"], "+", 
              SuperscriptBox["ekq", "2"], "+", 
              SuperscriptBox["Ik", "2"], "+", 
              SuperscriptBox["Ikq", "2"], "+", 
              RowBox[{"2", " ", 
               SqrtBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["ekq", "2"], "+", 
                   SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox["ek", "2"], "+", 
                   SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}]], 
       ",", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"Ikq", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["ekq", "2"], "+", 
            SuperscriptBox["Ik", "2"], "+", 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["Ikq", "2"]}], ")"}]}]], "-", 
            RowBox[{"ekq", " ", 
             SqrtBox[
              RowBox[{
               SuperscriptBox["ek", "2"], "+", 
               SuperscriptBox["ekq", "2"], "+", 
               SuperscriptBox["Ik", "2"], "+", 
               SuperscriptBox["Ikq", "2"], "+", 
               RowBox[{"2", " ", 
                SqrtBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}]}], ")"}]}], 
         
         RowBox[{"Ik", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["Ikq", "2"], "+", 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ekq", "2"], "+", 
                SuperscriptBox["Ik", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["ek", "2"], "+", 
                SuperscriptBox["Ikq", "2"]}], ")"}]}]], "+", 
            RowBox[{"ek", " ", 
             RowBox[{"(", 
              RowBox[{"ek", "+", 
               SqrtBox[
                RowBox[{
                 SuperscriptBox["ek", "2"], "+", 
                 SuperscriptBox["ekq", "2"], "+", 
                 SuperscriptBox["Ik", "2"], "+", 
                 SuperscriptBox["Ikq", "2"], "+", 
                 RowBox[{"2", " ", 
                  SqrtBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ekq", "2"], "+", 
                    SuperscriptBox["Ik", "2"]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["ek", "2"], "+", 
                    SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], ")"}]}]}], 
           ")"}]}]]}], ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5025393852007*^9, 3.502539394868064*^9}, {
  3.503084813950528*^9, 3.50308484585529*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"detT", "\[Equal]", "0"}], ",", "v"}], "]"}]], "Input",
 CellChangeTimes->{{3.50253939672584*^9, 3.502539404220813*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     RowBox[{"-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["ek", "2"], "+", 
        SuperscriptBox["ekq", "2"], "+", 
        SuperscriptBox["Ik", "2"], "+", 
        SuperscriptBox["Ikq", "2"], "-", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ekq", "2"], "+", 
             SuperscriptBox["Ik", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ek", "2"], "+", 
             SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["ek", "2"], "+", 
       SuperscriptBox["ekq", "2"], "+", 
       SuperscriptBox["Ik", "2"], "+", 
       SuperscriptBox["Ikq", "2"], "-", 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["ekq", "2"], "+", 
            SuperscriptBox["Ik", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["ek", "2"], "+", 
            SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     RowBox[{"-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["ek", "2"], "+", 
        SuperscriptBox["ekq", "2"], "+", 
        SuperscriptBox["Ik", "2"], "+", 
        SuperscriptBox["Ikq", "2"], "+", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{
            SuperscriptBox["ek", "2"], " ", 
            SuperscriptBox["ekq", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["ek", "2"], " ", 
            SuperscriptBox["Ik", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["ekq", "2"], " ", 
            SuperscriptBox["Ikq", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["Ik", "2"], " ", 
            SuperscriptBox["Ikq", "2"]}]}]]}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["ek", "2"], "+", 
       SuperscriptBox["ekq", "2"], "+", 
       SuperscriptBox["Ik", "2"], "+", 
       SuperscriptBox["Ikq", "2"], "+", 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{
           SuperscriptBox["ek", "2"], " ", 
           SuperscriptBox["ekq", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["ek", "2"], " ", 
           SuperscriptBox["Ik", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["ekq", "2"], " ", 
           SuperscriptBox["Ikq", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["Ik", "2"], " ", 
           SuperscriptBox["Ikq", "2"]}]}]]}]}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.50253940475097*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.502539429167007*^9, 3.502539434851071*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     RowBox[{"-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["ek", "2"], "+", 
        SuperscriptBox["ekq", "2"], "+", 
        SuperscriptBox["Ik", "2"], "+", 
        SuperscriptBox["Ikq", "2"], "-", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ekq", "2"], "+", 
             SuperscriptBox["Ik", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ek", "2"], "+", 
             SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["ek", "2"], "+", 
       SuperscriptBox["ekq", "2"], "+", 
       SuperscriptBox["Ik", "2"], "+", 
       SuperscriptBox["Ikq", "2"], "-", 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["ekq", "2"], "+", 
            SuperscriptBox["Ik", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["ek", "2"], "+", 
            SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     RowBox[{"-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["ek", "2"], "+", 
        SuperscriptBox["ekq", "2"], "+", 
        SuperscriptBox["Ik", "2"], "+", 
        SuperscriptBox["Ikq", "2"], "+", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ekq", "2"], "+", 
             SuperscriptBox["Ik", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["ek", "2"], "+", 
             SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["ek", "2"], "+", 
       SuperscriptBox["ekq", "2"], "+", 
       SuperscriptBox["Ik", "2"], "+", 
       SuperscriptBox["Ikq", "2"], "+", 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["ekq", "2"], "+", 
            SuperscriptBox["Ik", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["ek", "2"], "+", 
            SuperscriptBox["Ikq", "2"]}], ")"}]}]]}]}]]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5025394355419493`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"T3", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"eapq", "-", "eap"}], ",", "0", ",", "0", ",", "dfpq", ",", 
       RowBox[{"-", "dfp"}], ",", "dgpq", ",", 
       RowBox[{"-", "dgp"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"ebp", "-", "ebpq"}], ",", "0", ",", "dfp", ",", 
       RowBox[{"-", "dfpq"}], ",", "0", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       RowBox[{"ecp", "-", "ecpq"}], ",", "0", ",", "0", ",", "dgp", ",", 
       RowBox[{"-", "dgpg"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"dfpq", ",", "dfp", ",", "0", ",", 
       RowBox[{
        RowBox[{"-", "eap"}], "-", "ebpq"}], ",", "0", ",", "0", ",", "0"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "dfp"}], ",", 
       RowBox[{"-", "dfpq"}], ",", "0", ",", "0", ",", 
       RowBox[{"eapq", "+", "eap"}], ",", "0", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"dgpq", ",", "0", ",", "dgp", ",", "0", ",", "0", ",", 
       RowBox[{
        RowBox[{"-", "eap"}], "-", "ecpq"}], ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "dgp"}], ",", "0", ",", 
       RowBox[{"-", "dgpq"}], ",", "0", ",", "0", ",", "0", ",", 
       RowBox[{"eapq", "+", "ecp"}]}], "}"}]}], "}"}]}], ";", 
  RowBox[{"MatrixForm", "[", 
   RowBox[{"T31", "-", 
    RowBox[{
     RowBox[{"IdentityMatrix", "[", "7", "]"}], "*", "v"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5025605108937607`*^9, 3.502560745573612*^9}, 
   3.502561070002989*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", "eap"}], "+", "eapq"}], "0", "0", "dfpq", 
      RowBox[{"-", "dfp"}], "dgpq", 
      RowBox[{"-", "dgp"}]},
     {"0", 
      RowBox[{"ebp", "-", "ebpq"}], "0", "dfp", 
      RowBox[{"-", "dfpq"}], "0", "0"},
     {"0", "0", 
      RowBox[{"ecp", "-", "ecpq"}], "0", "0", "dgp", 
      RowBox[{"-", "dgpg"}]},
     {"dfpq", "dfp", "0", 
      RowBox[{
       RowBox[{"-", "eap"}], "-", "ebpq"}], "0", "0", "0"},
     {
      RowBox[{"-", "dfp"}], 
      RowBox[{"-", "dfpq"}], "0", "0", 
      RowBox[{"eap", "+", "eapq"}], "0", "0"},
     {"dgpq", "0", "dgp", "0", "0", 
      RowBox[{
       RowBox[{"-", "eap"}], "-", "ecpq"}], "0"},
     {
      RowBox[{"-", "dgp"}], "0", 
      RowBox[{"-", "dgpq"}], "0", "0", "0", 
      RowBox[{"eapq", "+", "ecp"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.502560732875499*^9, 3.502560746394649*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T31", "=", 
  RowBox[{"T3", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ecpq", "\[Rule]", "eapq"}], ",", 
     RowBox[{"ecp", "\[Rule]", "ecp"}], ",", 
     RowBox[{"ebpq", "\[Rule]", "eapq"}], ",", 
     RowBox[{"ebp", "\[Rule]", "ebq"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.5025608112719584`*^9, 3.502560846435298*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "eap"}], "+", "eapq"}], ",", "0", ",", "0", ",", "dfpq", 
     ",", 
     RowBox[{"-", "dfp"}], ",", "dgpq", ",", 
     RowBox[{"-", "dgp"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      RowBox[{"-", "eapq"}], "+", "ebq"}], ",", "0", ",", "dfp", ",", 
     RowBox[{"-", "dfpq"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "eapq"}], "+", "ecp"}], ",", "0", ",", "0", ",", "dgp", 
     ",", 
     RowBox[{"-", "dgpg"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"dfpq", ",", "dfp", ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "eap"}], "-", "eapq"}], ",", "0", ",", "0", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "dfp"}], ",", 
     RowBox[{"-", "dfpq"}], ",", "0", ",", "0", ",", 
     RowBox[{"eap", "+", "eapq"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"dgpq", ",", "0", ",", "dgp", ",", "0", ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "eap"}], "-", "eapq"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "dgp"}], ",", "0", ",", 
     RowBox[{"-", "dgpq"}], ",", "0", ",", "0", ",", "0", ",", 
     RowBox[{"eapq", "+", "ecp"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.502560848251432*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eigenvalues", "[", "T31", "]"}]], "Input",
 CellChangeTimes->{{3.502560754081306*^9, 3.502560809200758*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   PanelBox[GridBox[{
      {
       StyleBox[
        StyleBox[
         DynamicBox[ToBoxes[
           FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
           StandardForm],
          ImageSizeCache->{278., {3., 8.}}],
         StripOnInput->False,
         DynamicUpdating->True], "Panel",
        StripOnInput->False,
        Background->None]},
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Root", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                SuperscriptBox["dfp", "2"], " ", 
                SuperscriptBox["dgp", "4"], " ", "eap"}], "-", 
               RowBox[{
                SuperscriptBox["dfpq", "2"], " ", 
                SuperscriptBox["dgp", "4"], " ", "eap"}], "-", 
               RowBox[{
                SuperscriptBox["dfp", "4"], " ", "dgpg", " ", "dgpq", " ", 
                "eap"}], "+", 
               RowBox[{"\[LeftSkeleton]", "261", "\[RightSkeleton]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "eap"}], "+", "eapq", "-", "ebq", "-", 
                  RowBox[{"2", " ", "ecp"}]}], ")"}], " ", 
                SuperscriptBox["#1", "6"]}], "+", 
               SuperscriptBox["#1", "7"]}], "&"}], ",", "1"}], "]"}], ",", 
           RowBox[{"Root", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "&"}], 
             ",", "2"}], "]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "4", "\[RightSkeleton]"}], ",", 
           RowBox[{"Root", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"\[LeftSkeleton]", "267", "\[RightSkeleton]"}], "+", 
               SuperscriptBox[
                RowBox[{"\[LeftSkeleton]", "2", "\[RightSkeleton]"}], "7"]}], 
              "&"}], ",", "7"}], "]"}]}], "}"}],
         Short[#, 
          Rational[5, 2]]& ],
        Background->GrayLevel[1],
        BaseStyle->{Deployed -> False},
        Frame->True,
        FrameStyle->GrayLevel[0, 0.2],
        StripOnInput->False]},
      {
       RowBox[{
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
             StandardForm],
            ImageSizeCache->{49., {1., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 63, 22945270644625103332, Rational[5, 2]/2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
             StandardForm],
            ImageSizeCache->{52., {1., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 63, 22945270644625103332, Rational[5, 2] 2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
             StandardForm],
            ImageSizeCache->{82., {2., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 63, 22945270644625103332, Infinity],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
             StandardForm],
            ImageSizeCache->{74., {1., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>FrontEndExecute[{
            FrontEnd`SetOptions[
            FrontEnd`$FrontEnd, 
             FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
            FrontEnd`FrontEndToken["PreferencesDialog"]}],
         Evaluator->None,
         Method->"Preemptive"]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[1.2]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    DefaultBaseStyle->{},
    FrameMargins->5],
   Deploy,
   DefaultBaseStyle->{Deployed -> True}],
  Out[63]]], "Output",
 CellChangeTimes->{3.502560778648333*^9, 3.502560856435833*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dt3", "=", 
  RowBox[{"Det", "[", 
   RowBox[{"T311", "-", 
    RowBox[{
     RowBox[{"IdentityMatrix", "[", "7", "]"}], "*", "v"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5025609632041197`*^9, 3.5025609954615097`*^9}, 
   3.5025611774856577`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "dgp"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"dgp", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"dfp", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"dfp", " ", 
            SuperscriptBox["dgp", "2"]}], "-", 
           RowBox[{"dfp", " ", "dgp", " ", "dgpq"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "dfp"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "dfp"}], " ", 
               SuperscriptBox["dgp", "2"]}], "+", 
              RowBox[{"dfp", " ", "dgp", " ", "dgpq"}]}], ")"}]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["dgp", "2"], "-", 
              RowBox[{"dgp", " ", "dgpq"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "eapq"}], "+", "ebq", "-", "v"}], ")"}]}]}], ")"}],
          " ", 
         RowBox[{"(", 
          RowBox[{"eap", "+", "eapq", "-", "v"}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "eapq"}], "+", "ecp", "-", "v"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"dgp", " ", 
         SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
        RowBox[{"2", " ", "dgp", " ", "eap", " ", 
         SuperscriptBox["eapq", "2"]}], "+", 
        RowBox[{"dgp", " ", 
         SuperscriptBox["eapq", "3"]}], "-", 
        RowBox[{"dgp", " ", 
         SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
        RowBox[{"2", " ", "dgp", " ", "eap", " ", "eapq", " ", "ebq"}], "-", 
        RowBox[{"dgp", " ", 
         SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["dfp", "2"], " ", "dgp", " ", "v"}], "+", 
        RowBox[{"dgp", " ", 
         SuperscriptBox["eap", "2"], " ", "v"}], "+", 
        RowBox[{"2", " ", "dgp", " ", "eap", " ", "eapq", " ", "v"}], "+", 
        RowBox[{"dgp", " ", 
         SuperscriptBox["eapq", "2"], " ", "v"}], "-", 
        RowBox[{"dgp", " ", "eapq", " ", 
         SuperscriptBox["v", "2"]}], "+", 
        RowBox[{"dgp", " ", "ebq", " ", 
         SuperscriptBox["v", "2"]}], "-", 
        RowBox[{"dgp", " ", 
         SuperscriptBox["v", "3"]}]}], ")"}]}]}], ")"}]}], "-", 
  RowBox[{"dgpq", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "dgpq"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"dfp", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"dfp", " ", 
            SuperscriptBox["dgp", "2"]}], "-", 
           RowBox[{"dfp", " ", "dgp", " ", "dgpq"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "dfp"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "dfp"}], " ", 
               SuperscriptBox["dgp", "2"]}], "+", 
              RowBox[{"dfp", " ", "dgp", " ", "dgpq"}]}], ")"}]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["dgp", "2"], "-", 
              RowBox[{"dgp", " ", "dgpq"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "eapq"}], "+", "ebq", "-", "v"}], ")"}]}]}], ")"}],
          " ", 
         RowBox[{"(", 
          RowBox[{"eap", "+", "eapq", "-", "v"}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{"dgp", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "dfp"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "dfp"}], " ", "eapq"}], "+", 
           RowBox[{"dfp", " ", "ebq"}], "-", 
           RowBox[{"dfp", " ", "v"}]}], ")"}]}], "-", 
        RowBox[{"dfp", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"dfp", " ", 
            SuperscriptBox["eap", "2"]}], "-", 
           RowBox[{"dfp", " ", 
            SuperscriptBox["eapq", "2"]}], "+", 
           RowBox[{"2", " ", "dfp", " ", "eap", " ", "v"}], "+", 
           RowBox[{"dfp", " ", 
            SuperscriptBox["v", "2"]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"eap", "+", "eapq", "-", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "dfp"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "dfp"}], " ", "eap"}], "+", 
              RowBox[{"dfp", " ", "eapq"}], "-", 
              RowBox[{"dfp", " ", "v"}]}], ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "eapq"}], "+", "ebq", "-", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["dfp", "2"]}], "+", 
              SuperscriptBox["eap", "2"], "-", 
              SuperscriptBox["eapq", "2"], "+", 
              RowBox[{"2", " ", "eap", " ", "v"}], "+", 
              SuperscriptBox["v", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], 
    ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"eapq", "+", "ecp", "-", "v"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["dgp", "2"]}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "dfp"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "dfp"}], " ", "eapq"}], "+", 
           RowBox[{"dfp", " ", "ebq"}], "-", 
           RowBox[{"dfp", " ", "v"}]}], ")"}]}], "-", 
        RowBox[{"dfp", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"dfp", " ", 
            SuperscriptBox["eap", "2"]}], "-", 
           RowBox[{"dfp", " ", 
            SuperscriptBox["eapq", "2"]}], "+", 
           RowBox[{"2", " ", "dfp", " ", "eap", " ", "v"}], "+", 
           RowBox[{"dfp", " ", 
            SuperscriptBox["v", "2"]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"eap", "+", "eapq", "-", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "dfp"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "dfp"}], " ", "eap"}], "+", 
              RowBox[{"dfp", " ", "eapq"}], "-", 
              RowBox[{"dfp", " ", "v"}]}], ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "eapq"}], "+", "ebq", "-", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["dfp", "2"]}], "+", 
              SuperscriptBox["eap", "2"], "-", 
              SuperscriptBox["eapq", "2"], "+", 
              RowBox[{"2", " ", "eap", " ", "v"}], "+", 
              SuperscriptBox["v", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", 
     
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "eapq"}], "+", "ecp", "-", "v"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"dgpq", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "dgpq"}], " ", 
            SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
           RowBox[{"2", " ", "dgpq", " ", "eap", " ", 
            SuperscriptBox["eapq", "2"]}], "-", 
           RowBox[{"dgpq", " ", 
            SuperscriptBox["eapq", "3"]}], "+", 
           RowBox[{"dgpq", " ", 
            SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
           RowBox[{"2", " ", "dgpq", " ", "eap", " ", "eapq", " ", "ebq"}], 
           "+", 
           RowBox[{"dgpq", " ", 
            SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["dfp", "2"], " ", "dgpq", " ", "v"}], "-", 
           RowBox[{"dgpq", " ", 
            SuperscriptBox["eap", "2"], " ", "v"}], "-", 
           RowBox[{"2", " ", "dgpq", " ", "eap", " ", "eapq", " ", "v"}], "-", 
           RowBox[{"dgpq", " ", 
            SuperscriptBox["eapq", "2"], " ", "v"}], "+", 
           RowBox[{"dgpq", " ", "eapq", " ", 
            SuperscriptBox["v", "2"]}], "-", 
           RowBox[{"dgpq", " ", "ebq", " ", 
            SuperscriptBox["v", "2"]}], "+", 
           RowBox[{"dgpq", " ", 
            SuperscriptBox["v", "3"]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "dfp"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "dfp"}], " ", "eapq"}], "+", 
              RowBox[{"dfp", " ", "ebq"}], "-", 
              RowBox[{"dfp", " ", "v"}]}], ")"}]}], "-", 
           RowBox[{"dfp", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"dfp", " ", 
               SuperscriptBox["eap", "2"]}], "-", 
              RowBox[{"dfp", " ", 
               SuperscriptBox["eapq", "2"]}], "+", 
              RowBox[{"2", " ", "dfp", " ", "eap", " ", "v"}], "+", 
              RowBox[{"dfp", " ", 
               SuperscriptBox["v", "2"]}]}], ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"eap", "+", "eapq", "-", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "dfp"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "dfp"}], " ", "eap"}], "+", 
                 RowBox[{"dfp", " ", "eapq"}], "-", 
                 RowBox[{"dfp", " ", "v"}]}], ")"}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "eapq"}], "+", "ebq", "-", "v"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  SuperscriptBox["dfp", "2"]}], "+", 
                 SuperscriptBox["eap", "2"], "-", 
                 SuperscriptBox["eapq", "2"], "+", 
                 RowBox[{"2", " ", "eap", " ", "v"}], "+", 
                 SuperscriptBox["v", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], 
       ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.502560997341687*^9, 3.502561178340378*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "dt3", "]"}]], "Input",
 CellChangeTimes->{{3.502561006303422*^9, 3.50256101331009*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["dgp", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      SuperscriptBox["dfp", "2"], " ", "v"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"eap", "+", "eapq", "-", "v"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"eap", "+", "eapq", "+", "v"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"eapq", "-", "ebq", "+", "v"}], ")"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dgp", "2"], "-", 
     RowBox[{"dgp", " ", "dgpq"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"eap", "+", "eapq", "+", "v"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"eapq", "-", "ecp", "+", "v"}], ")"}]}]}], ")"}]}], "-", 
  RowBox[{"dgpq", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"dgp", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"eap", "-", "eapq"}], ")"}]}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"eap", "+", "eapq"}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{"eapq", "-", "ebq"}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["dfp", "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"eap", "+", "eapq"}], ")"}], "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"eap", "-", "ebq"}], ")"}], " ", "v"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["dfp", "2"]}], "+", 
           SuperscriptBox["eap", "2"], "+", 
           RowBox[{"eapq", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "eapq"}], "-", "ebq"}], ")"}]}], "+", 
           RowBox[{"eap", " ", 
            RowBox[{"(", 
             RowBox[{"eapq", "+", "ebq"}], ")"}]}]}], ")"}], " ", 
         SuperscriptBox["v", "2"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"eap", "-", "ebq"}], ")"}], " ", 
         SuperscriptBox["v", "3"]}], "+", 
        SuperscriptBox["v", "4"]}], ")"}]}], "+", 
     RowBox[{"dgp", " ", 
      RowBox[{"(", 
       RowBox[{"dgp", "-", "dgpq"}], ")"}], " ", "dgpq", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["dfp", "2"], " ", "v"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"eap", "+", "eapq", "-", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"eap", "+", "eapq", "+", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"eapq", "-", "ebq", "+", "v"}], ")"}]}]}], ")"}]}]}], 
    ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"eapq", "+", "ecp", "-", "v"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["dgp", "2"]}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"eap", "-", "eapq"}], ")"}]}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"eap", "+", "eapq"}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{"eapq", "-", "ebq"}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["dfp", "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"eap", "+", "eapq"}], ")"}], "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"eap", "-", "ebq"}], ")"}], " ", "v"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["dfp", "2"]}], "+", 
           SuperscriptBox["eap", "2"], "+", 
           RowBox[{"eapq", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "eapq"}], "-", "ebq"}], ")"}]}], "+", 
           RowBox[{"eap", " ", 
            RowBox[{"(", 
             RowBox[{"eapq", "+", "ebq"}], ")"}]}]}], ")"}], " ", 
         SuperscriptBox["v", "2"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"eap", "-", "ebq"}], ")"}], " ", 
         SuperscriptBox["v", "3"]}], "+", 
        SuperscriptBox["v", "4"]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "eapq"}], "+", "ecp", "-", "v"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{"eap", "-", "eapq"}], ")"}]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"eap", "+", "eapq"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{"eapq", "-", "ebq"}], ")"}]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox["dfp", "2"]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"eap", "+", "eapq"}], ")"}], "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"eap", "-", "ebq"}], ")"}], " ", "v"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["dfp", "2"]}], "+", 
              SuperscriptBox["eap", "2"], "+", 
              RowBox[{"eapq", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "eapq"}], "-", "ebq"}], ")"}]}], "+", 
              RowBox[{"eap", " ", 
               RowBox[{"(", 
                RowBox[{"eapq", "+", "ebq"}], ")"}]}]}], ")"}], " ", 
            SuperscriptBox["v", "2"]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"eap", "-", "ebq"}], ")"}], " ", 
            SuperscriptBox["v", "3"]}], "+", 
           SuperscriptBox["v", "4"]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["dgpq", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            SuperscriptBox["dfp", "2"], " ", "v"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"eap", "+", "eapq", "-", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"eap", "+", "eapq", "+", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"eapq", "-", "ebq", "+", "v"}], ")"}]}]}], ")"}]}]}], 
       ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.502561038592787*^9, 3.5025611970479918`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"T31", "-", 
   RowBox[{
    RowBox[{"IdentityMatrix", "[", "7", "]"}], "*", "v"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.502561085475851*^9, 3.502561090578868*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", "eap"}], "+", "eapq", "-", "v"}], "0", "0", "dfpq", 
      RowBox[{"-", "dfp"}], "dgpq", 
      RowBox[{"-", "dgp"}]},
     {"0", 
      RowBox[{
       RowBox[{"-", "eapq"}], "+", "ebq", "-", "v"}], "0", "dfp", 
      RowBox[{"-", "dfpq"}], "0", "0"},
     {"0", "0", 
      RowBox[{
       RowBox[{"-", "eapq"}], "+", "ecp", "-", "v"}], "0", "0", "dgp", 
      RowBox[{"-", "dgpg"}]},
     {"dfpq", "dfp", "0", 
      RowBox[{
       RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], "0", "0", "0"},
     {
      RowBox[{"-", "dfp"}], 
      RowBox[{"-", "dfpq"}], "0", "0", 
      RowBox[{"eap", "+", "eapq", "-", "v"}], "0", "0"},
     {"dgpq", "0", "dgp", "0", "0", 
      RowBox[{
       RowBox[{"-", "eap"}], "-", "eapq", "-", "v"}], "0"},
     {
      RowBox[{"-", "dgp"}], "0", 
      RowBox[{"-", "dgpq"}], "0", "0", "0", 
      RowBox[{"eapq", "+", "ecp", "-", "v"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.502561082719429*^9, 3.502561091023468*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T311", "=", 
  RowBox[{"T31", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"dfpq", "\[Rule]", "dfp"}], ",", 
     RowBox[{"dgpg", "\[Rule]", "dgp"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.502561137217025*^9, 3.502561167252112*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "eap"}], "+", "eapq"}], ",", "0", ",", "0", ",", "dfp", 
     ",", 
     RowBox[{"-", "dfp"}], ",", "dgpq", ",", 
     RowBox[{"-", "dgp"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      RowBox[{"-", "eapq"}], "+", "ebq"}], ",", "0", ",", "dfp", ",", 
     RowBox[{"-", "dfp"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "eapq"}], "+", "ecp"}], ",", "0", ",", "0", ",", "dgp", 
     ",", 
     RowBox[{"-", "dgp"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"dfp", ",", "dfp", ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "eap"}], "-", "eapq"}], ",", "0", ",", "0", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "dfp"}], ",", 
     RowBox[{"-", "dfp"}], ",", "0", ",", "0", ",", 
     RowBox[{"eap", "+", "eapq"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"dgpq", ",", "0", ",", "dgp", ",", "0", ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "eap"}], "-", "eapq"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "dgp"}], ",", "0", ",", 
     RowBox[{"-", "dgpq"}], ",", "0", ",", "0", ",", "0", ",", 
     RowBox[{"eapq", "+", "ecp"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5025611677928877`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"dt3", "\[Equal]", "0"}], ",", "v"}], "]"}]], "Input",
 CellChangeTimes->{{3.502561198671678*^9, 3.5025612094866257`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["dgp", "4"]}], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "eapq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "6"]}], "-", 
         SuperscriptBox["eapq", "7"], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", "eapq", 
          " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "+", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "5"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "6"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ecp"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", "ecp"}], 
         "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "5"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
          " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eapq", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "4"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
             "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            SuperscriptBox["eapq", "6"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eapq",
              " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "5"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
             " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq",
              " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eapq", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eap"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "5"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{
            "2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"]}], "+", 
            SuperscriptBox["dgp", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            SuperscriptBox["eap", "4"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "ebq"}], 
            "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"12", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", "eapq", " ", "ebq", " ", "ecp"}], 
            "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "6"}], " ", 
             SuperscriptBox["dfp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq"}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["dfp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"]}], "-", 
            RowBox[{"dgp", " ", "dgpq"}], "-", 
            SuperscriptBox["dgpq", "2"], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "ebq", " ", "ecp"}], "+", 
            SuperscriptBox["ecp", "2"]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "eap"}], "+", "eapq", "-", "ebq", "-", 
            RowBox[{"2", " ", "ecp"}]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "1"}], "]"}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["dgp", "4"]}], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "eapq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "6"]}], "-", 
         SuperscriptBox["eapq", "7"], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", "eapq", 
          " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "+", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "5"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "6"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ecp"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", "ecp"}], 
         "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "5"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
          " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eapq", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "4"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
             "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            SuperscriptBox["eapq", "6"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eapq",
              " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "5"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
             " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq",
              " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eapq", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eap"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "5"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{
            "2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"]}], "+", 
            SuperscriptBox["dgp", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            SuperscriptBox["eap", "4"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "ebq"}], 
            "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"12", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", "eapq", " ", "ebq", " ", "ecp"}], 
            "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "6"}], " ", 
             SuperscriptBox["dfp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq"}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["dfp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"]}], "-", 
            RowBox[{"dgp", " ", "dgpq"}], "-", 
            SuperscriptBox["dgpq", "2"], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "ebq", " ", "ecp"}], "+", 
            SuperscriptBox["ecp", "2"]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "eap"}], "+", "eapq", "-", "ebq", "-", 
            RowBox[{"2", " ", "ecp"}]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "2"}], "]"}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["dgp", "4"]}], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "eapq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "6"]}], "-", 
         SuperscriptBox["eapq", "7"], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", "eapq", 
          " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "+", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "5"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "6"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ecp"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", "ecp"}], 
         "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "5"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
          " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eapq", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "4"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
             "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            SuperscriptBox["eapq", "6"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eapq",
              " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "5"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
             " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq",
              " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eapq", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eap"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "5"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{
            "2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"]}], "+", 
            SuperscriptBox["dgp", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            SuperscriptBox["eap", "4"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "ebq"}], 
            "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"12", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", "eapq", " ", "ebq", " ", "ecp"}], 
            "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "6"}], " ", 
             SuperscriptBox["dfp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq"}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["dfp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"]}], "-", 
            RowBox[{"dgp", " ", "dgpq"}], "-", 
            SuperscriptBox["dgpq", "2"], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "ebq", " ", "ecp"}], "+", 
            SuperscriptBox["ecp", "2"]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "eap"}], "+", "eapq", "-", "ebq", "-", 
            RowBox[{"2", " ", "ecp"}]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "3"}], "]"}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["dgp", "4"]}], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "eapq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "6"]}], "-", 
         SuperscriptBox["eapq", "7"], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", "eapq", 
          " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "+", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "5"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "6"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ecp"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", "ecp"}], 
         "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "5"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
          " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eapq", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "4"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
             "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            SuperscriptBox["eapq", "6"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eapq",
              " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "5"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
             " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq",
              " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eapq", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eap"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "5"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{
            "2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"]}], "+", 
            SuperscriptBox["dgp", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            SuperscriptBox["eap", "4"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "ebq"}], 
            "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"12", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", "eapq", " ", "ebq", " ", "ecp"}], 
            "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "6"}], " ", 
             SuperscriptBox["dfp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq"}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["dfp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"]}], "-", 
            RowBox[{"dgp", " ", "dgpq"}], "-", 
            SuperscriptBox["dgpq", "2"], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "ebq", " ", "ecp"}], "+", 
            SuperscriptBox["ecp", "2"]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "eap"}], "+", "eapq", "-", "ebq", "-", 
            RowBox[{"2", " ", "ecp"}]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "4"}], "]"}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["dgp", "4"]}], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "eapq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "6"]}], "-", 
         SuperscriptBox["eapq", "7"], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", "eapq", 
          " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "+", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "5"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "6"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ecp"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", "ecp"}], 
         "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "5"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
          " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eapq", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "4"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
             "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            SuperscriptBox["eapq", "6"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eapq",
              " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "5"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
             " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq",
              " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eapq", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eap"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "5"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{
            "2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"]}], "+", 
            SuperscriptBox["dgp", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            SuperscriptBox["eap", "4"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "ebq"}], 
            "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"12", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", "eapq", " ", "ebq", " ", "ecp"}], 
            "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "6"}], " ", 
             SuperscriptBox["dfp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq"}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["dfp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"]}], "-", 
            RowBox[{"dgp", " ", "dgpq"}], "-", 
            SuperscriptBox["dgpq", "2"], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "ebq", " ", "ecp"}], "+", 
            SuperscriptBox["ecp", "2"]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "eap"}], "+", "eapq", "-", "ebq", "-", 
            RowBox[{"2", " ", "ecp"}]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "5"}], "]"}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["dgp", "4"]}], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "eapq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "6"]}], "-", 
         SuperscriptBox["eapq", "7"], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", "eapq", 
          " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "+", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "5"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "6"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ecp"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", "ecp"}], 
         "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "5"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
          " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eapq", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "4"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
             "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            SuperscriptBox["eapq", "6"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eapq",
              " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "5"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
             " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq",
              " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eapq", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eap"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "5"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{
            "2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"]}], "+", 
            SuperscriptBox["dgp", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            SuperscriptBox["eap", "4"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "ebq"}], 
            "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"12", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", "eapq", " ", "ebq", " ", "ecp"}], 
            "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "6"}], " ", 
             SuperscriptBox["dfp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq"}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["dfp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"]}], "-", 
            RowBox[{"dgp", " ", "dgpq"}], "-", 
            SuperscriptBox["dgpq", "2"], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "ebq", " ", "ecp"}], "+", 
            SuperscriptBox["ecp", "2"]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "eap"}], "+", "eapq", "-", "ebq", "-", 
            RowBox[{"2", " ", "ecp"}]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "6"}], "]"}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["dgp", "4"]}], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "eapq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"]}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "3"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "5"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "6"]}], "-", 
         SuperscriptBox["eapq", "7"], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", "eapq", 
          " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "+", 
         RowBox[{"2", " ", "dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq", " ", "ebq"}], 
         "-", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgp", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", 
          SuperscriptBox["dgpq", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"dgp", " ", "dgpq", " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "4"], " ", "ebq"}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "5"], " ", "ebq"}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "6"], " ", "ebq"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ecp"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["dgp", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", "ecp"}], 
         "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgp", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "eapq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", 
          SuperscriptBox["eapq", "2"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "3"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "4"], " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eapq", "5"], " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eap", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["eap", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
          " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["dgpq", "2"], " ", 
          SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{"2", " ", "eap", " ", 
          SuperscriptBox["eapq", "3"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["eapq", "4"], " ", "ebq", " ", 
          SuperscriptBox["ecp", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "4"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "4"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eap", " ", 
             "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "4"]}], "-", 
            SuperscriptBox["eapq", "6"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eap", 
             " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", "eapq",
              " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "5"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", "ebq", 
             " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", "ebq",
              " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["eapq", "4"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eap"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "3"]}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "eapq"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", "dgp", " ", "dgpq", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "5"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "4"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq", " ", 
             "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "-", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["eap", "4"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{
            "2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "eapq", " ", 
             "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "3"], " ", "ebq"}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"], " ", "ebq"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "4"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq", " ", 
             "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "4"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq", " ", "ecp"}],
             "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq", " ", 
             "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "3"], " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgp", "2"]}], "+", 
            SuperscriptBox["dgp", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "dgp", " ", "dgpq"}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "3"], " ", "dgpq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["dgpq", "2"]}], "+", 
            RowBox[{"dgp", " ", 
             SuperscriptBox["dgpq", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eap", "2"]}], "-", 
            SuperscriptBox["eap", "4"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "eapq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eap", " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "eapq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", 
             SuperscriptBox["eapq", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "4"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ebq"}], "+", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap", " ", "ebq"}], 
            "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"4", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"12", " ", 
             SuperscriptBox["dfp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap", " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "3"], " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"8", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "3"], " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", "eap", " ", "eapq", " ", "ebq", " ", "ecp"}], 
            "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq", " ", "ecp"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eapq", "2"], " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "6"}], " ", 
             SuperscriptBox["dfp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eap"}], "-", 
            RowBox[{"2", " ", "dgp", " ", "dgpq", " ", "eap"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["eap", "3"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["dfp", "2"], " ", "eapq"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "eapq"}], "-", 
            RowBox[{"dgp", " ", "dgpq", " ", "eapq"}], "-", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "eapq"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["eap", "2"], " ", "eapq"}], "-", 
            RowBox[{"6", " ", "eap", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dfp", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ebq"}], "+", 
            RowBox[{"dgp", " ", "dgpq", " ", "ebq"}], "+", 
            RowBox[{
             SuperscriptBox["dgpq", "2"], " ", "ebq"}], "+", 
            RowBox[{"2", " ", "eap", " ", "eapq", " ", "ebq"}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"], " ", "ebq"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["dfp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"], " ", "ecp"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgpq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["eapq", "2"], " ", "ecp"}], "+", 
            RowBox[{"4", " ", "eap", " ", "ebq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "eap", " ", 
             SuperscriptBox["ecp", "2"]}], "+", 
            RowBox[{"eapq", " ", 
             SuperscriptBox["ecp", "2"]}], "-", 
            RowBox[{"ebq", " ", 
             SuperscriptBox["ecp", "2"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["dfp", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["dgp", "2"]}], "-", 
            RowBox[{"dgp", " ", "dgpq"}], "-", 
            SuperscriptBox["dgpq", "2"], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["eapq", "2"]}], "-", 
            RowBox[{"2", " ", "eap", " ", "ebq"}], "-", 
            RowBox[{"4", " ", "eap", " ", "ecp"}], "-", 
            RowBox[{"2", " ", "eapq", " ", "ecp"}], "+", 
            RowBox[{"2", " ", "ebq", " ", "ecp"}], "+", 
            SuperscriptBox["ecp", "2"]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "eap"}], "+", "eapq", "-", "ebq", "-", 
            RowBox[{"2", " ", "ecp"}]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "7"}], "]"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.502561214671782*^9}]
}, Open  ]]
},
WindowSize->{853, 965},
WindowMargins->{{Automatic, 116}, {58, Automatic}},
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 284, 8, 27, "Input"],
Cell[854, 32, 221, 8, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1112, 45, 772, 24, 27, "Input"],
Cell[1887, 71, 270, 8, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2194, 84, 277, 5, 27, "Input"],
Cell[2474, 91, 712, 26, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3223, 122, 210, 5, 27, "Input"],
Cell[3436, 129, 1348, 44, 121, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4821, 178, 180, 4, 27, "Input"],
Cell[5004, 184, 437, 16, 73, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5478, 205, 263, 7, 27, "Input"],
Cell[5744, 214, 3070, 56, 237, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8851, 275, 132, 2, 27, "Input"],
Cell[8986, 279, 210, 3, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9233, 287, 260, 7, 27, "Input"],
Cell[9496, 296, 15922, 267, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25455, 568, 312, 9, 27, "Input"],
Cell[25770, 579, 3633, 66, 247, "Output"]
}, Open  ]],
Cell[29418, 648, 539, 17, 27, "Input"],
Cell[CellGroupData[{
Cell[29982, 669, 122, 2, 27, "Input"],
Cell[30107, 673, 111, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30255, 679, 120, 2, 27, "Input"],
Cell[30378, 683, 112, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30527, 689, 122, 2, 27, "Input"],
Cell[30652, 693, 112, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30801, 699, 344, 11, 27, "Input"],
Cell[31148, 712, 221, 8, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31406, 725, 355, 10, 27, "Input"],
Cell[31764, 737, 16610, 283, 241, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48411, 1025, 380, 11, 54, "Input"],
Cell[48794, 1038, 137, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48968, 1045, 147, 3, 27, "Input"],
Cell[49118, 1050, 175, 6, 53, "Output"]
}, Open  ]],
Cell[49308, 1059, 91, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[49424, 1064, 558, 18, 27, "Input"],
Cell[49985, 1084, 520, 18, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50542, 1107, 560, 18, 27, "Input"],
Cell[51105, 1127, 524, 18, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51666, 1150, 119, 2, 27, "Input"],
Cell[51788, 1154, 971, 35, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52796, 1194, 127, 2, 27, "Input"],
Cell[52926, 1198, 374, 11, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53337, 1214, 133, 2, 27, "Input"],
Cell[53473, 1218, 374, 11, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53884, 1234, 622, 20, 27, "Input"],
Cell[54509, 1256, 569, 19, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55115, 1280, 130, 2, 27, "Input"],
Cell[55248, 1284, 593, 19, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55878, 1308, 400, 12, 27, "Input"],
Cell[56281, 1322, 722, 22, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57040, 1349, 785, 23, 27, "Input"],
Cell[57828, 1374, 716, 22, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58581, 1401, 219, 4, 27, "Input"],
Cell[58803, 1407, 38350, 1058, 1740, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97190, 2470, 180, 4, 27, "Input"],
Cell[97373, 2476, 2890, 89, 189, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100300, 2570, 131, 2, 27, "Input"],
Cell[100434, 2574, 2588, 82, 189, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103059, 2661, 1766, 46, 118, "Input"],
Cell[104828, 2709, 1420, 41, 125, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106285, 2755, 361, 9, 27, "Input"],
Cell[106649, 2766, 1410, 40, 73, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108096, 2811, 132, 2, 27, "Input"],
Cell[108231, 2815, 5698, 156, 131, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113966, 2976, 279, 8, 27, "Input"],
Cell[114248, 2986, 11550, 315, 369, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125835, 3306, 132, 2, 27, "Input"],
Cell[125970, 3310, 6818, 199, 213, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132825, 3514, 221, 5, 27, "Input"],
Cell[133049, 3521, 1536, 43, 125, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134622, 3569, 267, 7, 27, "Input"],
Cell[134892, 3578, 1407, 40, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136336, 3623, 182, 4, 27, "Input"],
Cell[136521, 3629, 277056, 6135, 8411, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
